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