-- parser

parser :: Parser Statement
parser = do whitespace
            result <- statements
            eof
            return result
parser :: Parser Statement
parser = do whitespace
            result <- statements
            eof
            return result
parser = do whitespace
            result <- statements
            eof
            return result