1 2 3 4 5 6 7 8 9
module AmethystParser where import AdvancedParser import SyntaxExamples main :: IO () main = do let Just (_, Right r) = runParser programPE (Leftover program1 0 0) print $ show r