WED2P6GBYNPFJNRTA26525ZQYZRKHYLGMMK3UNB2YCO6FBYPWMVQC | KeyPress 'H' <- e = Right (s { center = shift v 1 H $ center s } , v)| KeyPress 'J' <- e = Right (s { center = shift v 1 N $ center s } , v)| KeyPress 'K' <- e = Right (s { center = shift v 1 I $ center s } , v)| KeyPress 'L' <- e = Right (s { center = shift v 1 L $ center s } , v)
| Just 'H' <- k = z { center = shift v 1 H $ center s }| Just 'J' <- k = z { center = shift v 1 N $ center s }| Just 'K' <- k = z { center = shift v 1 I $ center s }| Just 'L' <- k = z { center = shift v 1 L $ center s }
-- | Just 'x' <- k = z { }