procedure unpack(var v1,v2: vector; var u: ltuple);
var
  i: integer;
  ve: vector;
begin { unpack };
  write('(unpack'); flush(output);
  findu(v1,u);
  vexp(u[1],v2);
  vsprod(u[0],v2,ve);
  dunpack1(vdim,u,ve,v1,v2);
  if normalize then for i:=0 to 3 do v2[i]:=lnormal[i];
  write(')'); flush(output);
end { unpack };

