procedure tailins ( rec : list; var first,last : list );
	begin
	if first = nil	then	first := rec
			else	last^.next := rec;
	last := rec
	end;