sub input
{
  my $input;
  print "ILLEGAL INPUT $input\n"
    while ( chomp($input = <STDIN>) and $input !~ /^\d+$/);
  return $input;
}