Parallel invoke HOF in OCaml

*scratch*

let invoke (f : 'a -> 'b) x : unit -> 'b =
  let input, output = Unix.pipe() in
    match Unix.fork() with
      | -1 -> (let v = f x in fun () -> v)
      | 0 -> Unix.close input;