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