sub input
{
	while ( 1 ) 
	{
		my $input = <STDIN>;
		chomp ( $input );

		if ( $input !~ /\d/ ) 
		{
			print "ILLEGAL INPUT\n";
			next;
		}
	
		last;
	}

	return $input;
}