{
  print "Number?\n";
  redo unless <STDIN> =~ /^(\d+)$/ and $number=$1;
}