method to_list =
    Hashtbl.fold (fun a b current_list -> (a, b) :: current_list) current []