dropComments :: String -> String
dropComments =  unlines . filter notComment . lines
    where notComment = (not . ("#" `isPrefixOf`)) . dropWhile isSpace
dropComments :: String -> String
dropComments =  unlines . filter notComment . lines
    where notComment = (not . ("#" `isPrefixOf`)) . dropWhile isSpace
dropComments =  unlines . filter notComment . lines
    where notComment = (not . ("#" `isPrefixOf`)) . dropWhile isSpace