monadicComputation :: Monad m => m a ..
hsstackMainp :: State Stack Int stackMainp = do push 3 pop pop
stackMainp
push
pop