fork(2) download
  1. exception Value of int * string option
  2.  
  3. let () = try
  4. let m = (1, Some "xyu") in raise @@ Value m
  5. with
  6. | Value (_, Some x) -> print_endline x
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
File "prog.ml", line 4, characters 37-44:
Error: The constructor Value expects 2 argument(s),
       but is applied here to 1 argument(s)
stdout
Standard output is empty