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. end;
  9. printf "%d\n%!" !i
  10.