{ print "Number?\n"; redo unless =~ /^\d+$/; }