{-|
    Wrapper that allows preceeding whitespace before a token and then expects the
    input to end.
-}
wrapped :: LCParsec a -> LCParsec a
wrapped p = do
    void $ many (lamcsymbol " ")
    p' <- p
    eof
    return p'

{-|
    Parser for a bare variable, notated by beginning with a lowercase character.
-}
wrapped :: LCParsec a -> LCParsec a
wrapped p = do
    void $ many (lamcsymbol " ")
    p' <- p
    eof
    return p'

{-|
    Parser for a bare variable, notated by beginning with a lowercase character.
-}
wrapped p = do
    void $ many (lamcsymbol " ")
    p' <- p
    eof
    return p'

{-|
    Parser for a bare variable, notated by beginning with a lowercase character.
-}