print "This is an integer\n" if int $input eq $input;