include 'go.lm'
parse P: program [stdin]
if !P {
send stderr "parse error: [error]
exit(1)
}
else {
print [P]
for IL: int_lit in P {
print "int_lit: [^IL]-
}
for RL: rune_lit in P {
print "rune_lit: [^RL]-
}
for SL: string_lit in P {
print "string_lit: [^SL]-
}
}