spacepaste

  1.  
  2. let parse_line line =
  3. let i = ref 0 in
  4. begin
  5. try
  6. i := int_of_string line
  7. with Failure _ ->
  8. ();
  9. printf "%d\n%!" !i;
  10. end
  11.