fork download
  1. (* your code goes here *)
  2.  
  3. let () =
  4. print_endline "Start";
  5.  
  6. match 1 with
  7. | 1 -> print_endline "one"
  8. | _ -> print_endline "many";
  9.  
  10. ;;
  11.  
Success #stdin #stdout 0s 4172KB
stdin
Standard input is empty
stdout
Start
one