print "$in was not a number!"; input() unless $in =~ /\d/;