let
call_stack : called_function list ref = ref []