function wt( t : tree ) : integer;
     {*** Compute weight of a subtree ***}
     begin
     if t=nil then wt := 1
         else wt := t^.weight
     end;