external procedure ubsmakenull(var t: ubs);
external procedure ubsinsert(x: ubselement; var t: ubs);
external function ubssearch(x: ubselement; var r: ubselement; t: ubs):boolean;
external procedure ubsdump(t: ubs; var out: text);

.