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