num = @ARGV[0];
while (<STDIN>)
{
   (parser algorithm)
}
print ("$result");