procedure lnorm(var w,l: ltuple; var s: scalar);
var
  i: integer;
  st0,st1,st2: scalar;
begin { lnorm }
  squot(l[0],w[0],st0);
  for i:=1 to lmax do begin
    squot(l[i],w[i],st1);
    sunion(st0,st1,st2);
    st0:=st2;
  end;
  sabs(st0,s);
end { lnorm };