let parse_line line =
  let i = ref 0 in
  let () =  
    try
      i := int_of_string line
    with Failure _ -> ()
  in
  printf "%d\n%!" !i