let
pop_call_stack () =
call_stack :=
List
.tl !call_stack