comment :: Parser String
comment = do
    char ';'
    many (try $ noneOf "\n")
comment :: Parser String
comment = do
    char ';'
    many (try $ noneOf "\n")
comment = do
    char ';'
    many (try $ noneOf "\n")