# Pastebin ASuf3zh3
pressFor :: Keypad -> Char -> Maybe (Int, Int)
pressFor (Keypad keys) c = do
  ki <- findIndex (elem c) keys
  ci <- elemIndex c (keys !! ki)
  pure (ki, ci + 1)