+val select_entry: RolesTypes.pointer -> unit
+
+val expand_entry: RolesTypes.pointer -> unit
+
+val make_tops: unit -> unit
+
+val add_role: unit -> unit
+
+val add_tops: RolesTypes.stage -> unit
+
+val add_matching: unit -> unit
+
+val remove_roles: unit -> unit