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