>  А если здесь вместо файла stdin? Они же приводят решение на OCaml без повторного чтения

>   let () =
>      with_output_file "bench_baseline.txt" @@ fun chbase ->
>      with_output_file "bench_staged.txt" @@ fun chstaged ->
>
>      for_each_line ~fname:"bench_result.txt" @@ fun l ->
>      l |> cases [
>       optthen (strstr "baseline") (fun _ -> print ~ch:chbase [l]);
>       optthen (strstr "staged")   (fun _ -> print ~ch:chstaged [l]);
>       fun l -> Some (print_endline l)      (* default case *)
>      ]
 

>> (по ссылке) ... a lightweight and less idiosyncratic replacement for AWK ...

Кхе. На "заменяемом" AWK:

|awk '/baseline/{print $0 > "bench_baseline.txt";next} /staged/{print $0 >"staged.txt";next}{print $0}'