#!/usr/bin/perl

$string = $ARGV[0];

for(split(//,$string)) {

   if(($_ * $_ == 0) && $_ ne '0') {

      print "alpha: $string\n";
      exit(0);

   }

}

print "numeric: $string\n";