Simple async for ocaml

asyncronize.ml

open Printf;;
open Thread;;

let async f a fc =
	let wrapper a = fc (f a) |> ignore in
	Thread.create wrapper a;
	Thread.yield ()
;;


(* Example *)
let test c = c*c;;
let ac c = Printf.printf "%d\n%!" c;;
let a c = Printf.printf "%d\n%!" c; 20;;
let b c = Printf.printf "%d\n%!" c; async a 21 ac |> ignore;;	

Printf.printf "sleep\n";
async test 12 b;
Unix.sleep 2;
Printf.printf "sleeeep" 
;;