procedure lball(var s: scalar; var w,lb: ltuple);
var
  i: integer;
  st: scalar;
begin { lball }
  ssymm(s,st);
  for i:=0 to lmax do sprod(st,w[i],lb[i]);
end { lball };

