main = do
    cs <- readFile "big_big_test.hs" -- TODO: cs <- getContents
    let tokens = laMain cs
    let parser_res = parser_test tokens
    putStr (showx parser_res)
main = do
    cs <- readFile "big_big_test.hs" -- TODO: cs <- getContents
    let tokens = laMain cs
    let parser_res = parser_test tokens
    putStr (showx parser_res)
main = do
    cs <- readFile "big_big_test.hs" -- TODO: cs <- getContents
    let tokens = laMain cs
    let parser_res = parser_test tokens
    putStr (showx parser_res)