1: type Record = {
 2:     Name : string;
 3:     Age : int;
 4:     Weight: float;
 5:     Height: float;
 6: }
 7: 
 8: let ChainOfResponsibility() = 
 9:     let validAge (record:Record) = 
10:         record.Age < 65 && record.Age > 18
11:     let validWeight (record:Record) = 
12:         record.Weight < 200.
13:     let validHeight (record:Record) = 
14:         record.Height > 120.
15: 
16:     let check (f:Record->bool) (record:Record, result:bool) = 
17:         if result=false then (record, false)
18:         else (record, f(record))
19: 
20:     let chainOfResponsibility = check(validAge) >> check(validWeight) >> check(validHeight)
21: 
22:     let john = { Name = "John"; Age = 80; Weight = 180.; Height=180. }
23:     let dan = { Name = "Dan"; Age = 20; Weight = 160.; Height=190. }
24: 
25:     printfn "john result = %b" ((chainOfResponsibility (john, true)) |> snd)
26:     printfn "dan result = %b" ((chainOfResponsibility (dan, true)) |> snd)
27: