stackbinop :: (Integer -> Integer -> Integer) -> AsolEvent ()
stackbinop op = stackop 2 $ modify (\(x:y:xs) -> op y x : xs)
stackbinop :: (Integer -> Integer -> Integer) -> AsolEvent ()
stackbinop op = stackop 2 $ modify (\(x:y:xs) -> op y x : xs)
stackbinop op = stackop 2 $ modify (\(x:y:xs) -> op y x : xs)