fork download
  1. let foo () : unit = ();;
  2.  
  3. let bar (x : unit) : string = "bar";;
  4.  
  5. print_string (bar (foo()))
Success #stdin #stdout 0.01s 2736KB
stdin
Standard input is empty
stdout
bar