pAddress :: Lexer Address
pAddress = do
    str <- pSomeAlphaNum
    toParsecError $ decodeTextAddress str
pAddress :: Lexer Address
pAddress = do
    str <- pSomeAlphaNum
    toParsecError $ decodeTextAddress str
pAddress = do
    str <- pSomeAlphaNum
    toParsecError $ decodeTextAddress str