ither String (m Layout)
parseKlcLayout fname =
    parse (runWriterT (emptyOrCommentLines *> layout <* eof)) fname 
comment ∷ Parser m ⇒ m String
comment = spacing *> (string ";" <|> string "//") *> manyTill anySingle (try eol)
comment = spacing *> (string ";" <|> string "//") *> manyTill anySingle (try eol)