同じことを n 回繰り返す

repeat.fs

let invoke action = action ()
let repeat n action = Seq.initInfinite (fun _ -> action) |> Seq.take n |> Seq.iter invoke

let slowPrint (delay : int) =
   fun () ->
      System.Threading.Thread.Sleep (delay)
      System.Console.WriteLine (System.DateTime.Now)
slowPrint 500 |> repeat 120