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