parseComment :: CharParser st ()
parseComment = do
    tryString "#"
    forget $ skips $ manyTill anyChar newlineOrEof
parseComment :: CharParser st ()
parseComment = do
    tryString "#"
    forget $ skips $ manyTill anyChar newlineOrEof
parseComment = do
    tryString "#"
    forget $ skips $ manyTill anyChar newlineOrEof