  isComment ('/':'/':_) = True
    isComment _ = False

klcValue ∷ Parser m ⇒ m String
klcValue
endKbd ∷ (Parser m, MonadFail m) ⇒ m ()
endKbd = do
    ["ENDKBD"] ← readLine
    pure ()
endKbd = do
    ["ENDKBD"] ← readLine
    pure ()