fparse1 p pToQ s
    = do  loc <- location
          x <- Language.Forest.Quote.parse loc p s
          pToQ x
fparse1 p pToQ s
    = do  loc <- location
          x <- Language.Forest.Quote.parse loc p s
          pToQ x
fparse1 p pToQ s
    = do  loc <- location
          x <- Language.Forest.Quote.parse loc p s
          pToQ x