inParser :: ((String -> Maybe (a, String))  ->
             (String -> Maybe (b, String))) ->
             Parser a ->
             Parser b
inParser = (Parser .) . (. runParser)
inParser :: ((String -> Maybe (a, String))  ->
             (String -> Maybe (b, String))) ->
             Parser a ->
             Parser b
inParser = (Parser .) . (. runParser)
inParser = (Parser .) . (. runParser)