let register_list_of_var session_id =
  List.map
    (fun x ->
      global_var_id#get_id_of session_id x)