procedure lsum(var l1,l2,l3: ltuple);
var
  i: integer;
begin { lsum }
  for i:=0 to lmax do ssum(l1[i],l2[i],l3[i]);
end { lsum };