oken :: Token -> PParser Token
pToken t = Parser $ \s -> case s of
                            []     -> []
                            (t':ts) -> if t==t'
                                       then [(t,ts)]
                                       else []


-- | Parsers for P tokens

-- | values of type  :: PParser Token


pToken :: Token -> PParser Token
pToken t = Parser $ \s -> case s of
                            []     -> []
                            (t':ts) -> if t==t'
                                       then [(t,ts)]
                                       else []


-- | Parsers for P tokens

-- | values of type  :: PParser Token
pToken t = Parser $ \s -> case s of
                            []     -> []
                            (t':ts) -> if t==t'
                                       then [(t,ts)]
                                       else []


-- | Parsers for P tokens

-- | values of type  :: PParser Token