focusDown :: Stack a -> Stack a
focusDown = reverseStack . focusUp . reverseStack
focusDown :: Stack a -> Stack a
focusDown = reverseStack . focusUp . reverseStack
focusDown = reverseStack . focusUp . reverseStack