satisfyMany1 :: (Char -> Bool) -> Parser String
satisfyMany1 p = do c <- satisfy p; r <- satisfyMany p; return $ c:r
satisfyMany1 :: (Char -> Bool) -> Parser String
satisfyMany1 p = do c <- satisfy p; r <- satisfyMany p; return $ c:r
satisfyMany1 p = do c <- satisfy p; r <- satisfyMany p; return $ c:r