many1Till :: Parser a -> Parser b -> Parser [a]
many1Till f end = do
    x  <- f
    xs <- manyTill f end
    return (x:xs)
many1Till :: Parser a -> Parser b -> Parser [a]
many1Till f end = do
    x  <- f
    xs <- manyTill f end
    return (x:xs)
many1Till f end = do
    x  <- f
    xs <- manyTill f end
    return (x:xs)