< 100 lines

let run make proc report : seq<string> =
  Seq.initInfinite(fun _ -> System.Console.ReadLine())
  |> Seq.takeWhile(fun line -> line <> null)
  |> Seq.map(make >> proc)
  |> Async.Parallel
  |> Async.RunSynchronously
  |> Seq.map(report)