reverseStack :: Stack a -> Stack a
reverseStack (Stack t ls rs) = Stack t rs ls
reverseStack :: Stack a -> Stack a
reverseStack (Stack t ls rs) = Stack t rs ls
reverseStack (Stack t ls rs) = Stack t rs ls