| KeyPress 'c'  <- e = Right (s { mode = Dumb } , v)
   | KeyPress 'C'  <- e = Right (s { mode = Full } , v)

      | Just 'c' <- k = z { mode = Dumb }
      | Just 'C' <- k = z { mode = Full }