fork download
  1. (* your code goes here *)
  2. type 'a optional = None | Some of 'a
  3.  
  4. let myStuff = Some(42)
  5. let () = match myStuff with
  6. | Some(i) -> print_int i
  7. | None -> print_string "You have nothing there fellow"
  8. ;;
  9.  
Success #stdin #stdout 0.02s 2736KB
stdin
Standard input is empty
stdout
42