let f () = Printf.printf "blalba\n"; flush_all ()

let () = Callback.register "test_printf" f

module Test=
struct

  external f : unit -> unit = "f"

  let f2 () = Printf.printf "f2\n"; flush_all () 

end