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