othing
parseLetter "-1" = pure LNothing
parseLetter [x] = pure (Char x)
parseLetter "%%" = pure LNothing
parseLetter xs
    | last xs ≡ '@' =
        case chr <$> readMaybe ('0':'x':init xs) of
            Ju
parseCapslock ∷ Logger m ⇒ String → MaybeT m Bool
parseCapslock xs = maybe e (pure ∘ flip testBit 0) (readMaybe xs ∷ Maybe Int)
  where e = tellMaybeT ["‘" ⊕ xs ⊕ "’ is not a boolean value"]
parseCapslock xs = maybe e (pure ∘ flip testBit 0) (readMaybe xs ∷ Maybe Int)
  where e = tellMaybeT ["‘" ⊕ xs ⊕ "’ is not a boolean value"]