uses lists;
var tree:PBTree;
    u:uPtr;
    s:string;
begin
  new(tree, init('testtree.dat', 1024, BT_STRING, NIL));
  s := '.';
  tree^.insert(@s, u);
  dispose(tree, done);
end.