procedure lsprod(var s: scalar; var l1,l2: ltuple);
var
  i: integer;
begin { lsprod }
  for i:=0 to lmax do sprod(s,l1[i],l2[i]);
end { lsprod };