diff --git a/Project2.fst b/Project2.fst
index 9def19b..2936c5d 100644
--- a/Project2.fst
+++ b/Project2.fst
@@ -124,7 +124,7 @@ let step te cs  =
 	     | (LE, a::b::stack') -> let c = (if a <= b then 1 else 0) in
             Next (Exec(((gas-1, pc+1, mem, c::stack'), (actor, input, code), gs) :: ps))
 	     | (PUSH x, stack') -> Next (Exec(((gas-1, pc+1, mem, x::stack'), (actor, input, code), gs)::ps))
-	     | (POP, x::stack') -> magic ()
+	     | (POP, x::stack') -> Next (Exec(((gas-1, pc+1, mem, stack') (actor, input, code), gs) :: ps))
 	     | (MSTORE, p::v::stack') -> Next (Exec(((gas-1, pc+1, update mem p v, stack'), (actor, input, code), gs)::ps))
 	     | (MLOAD, p::stack') ->  magic ()
 	     | (SSTORE, p::v::stack') -> magic ()