my $x = <STDIN>;
$x *= 1;
print "String\n" if ($x =~ /\w/);
print "Integer\n" if ($x =~ /\d/);
print $x**$x ."\n";
__OUTPUT__
2
String
Integer
4