print +(preprocess::scanfile ($ARGV[0])); print (preprocess::scanfile($ARGV[0]));