{-|
    Lambda Cube parser token wrapper, expects the token followed by 0 or more spaces.
-}
lamctoken :: LCParsec a -> LCParsec a
lamctoken p = do
    pval <- p
    void $ many (char ' ')
    return pval

{-|
    Parenthesis parser combinator.
-}
lamctoken :: LCParsec a -> LCParsec a
lamctoken p = do
    pval <- p
    void $ many (char ' ')
    return pval

{-|
    Parenthesis parser combinator.
-}
lamctoken p = do
    pval <- p
    void $ many (char ' ')
    return pval

{-|
    Parenthesis parser combinator.
-}