TimeAForwardOperatorStep.fsx

let (>|>) x f = 
    let timer = new System.Diagnostics.Stopwatch()
    timer.Start()
    let r = f x
    printfn "Elapsed Time: %i" timer.ElapsedMilliseconds
    r

[1..1000]
>|> List.map (fun x -> [1..x] |> List.sum)
>|> List.max
>|> fun v -> [1..v]
>|> List.averageBy float

(* gives following output
Elapsed Time: 55
Elapsed Time: 0
Elapsed Time: 60
Elapsed Time: 8
Real: 00:00:00.126, CPU: 00:00:00.124, GC gen0: 6, gen1: 0, gen2: 0
val it : float = 250250.5
*)