isComment (c:cs) | c == ';'  = True
                 | otherwise = and . map isSpace $ (c:cs)
isComment (c:cs) | c == ';'  = True
                 | otherwise = and . map isSpace $ (c:cs)
isComment (c:cs) | c == ';'  = True
                 | otherwise = and . map isSpace $ (c:cs)