-------------------------------------------------------------
readExpr :: Parser a -> T.Text -> Either AvaParseError a
readExpr p input = bimap show id (parse p "<stdin>" input)
readExpr :: Parser a -> T.Text -> Either AvaParseError a
readExpr p input = bimap show id (parse p "<stdin>" input)
readExpr p input = bimap show id (parse p "<stdin>" input)