# blah.ml -rw-r--r-- 102 bytes View raw
                                                                                
1
2
3
4
5
6
let () =
  blah (fun x -> 
    print_endline "blah blah blah";
    print_endline "beep beep beep")
;;