Names Default to Here(1);
url_List = {"https://www.encyclopedia-titanica.org/titanic-lifeboat-1/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-2/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-3/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-4/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-5/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-6/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-7/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-8/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-9/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-10/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-11/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-12/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-13/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-14/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-15/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-16/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-a/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-b/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-c/",
	"https://www.encyclopedia-titanica.org/titanic-lifeboat-d/"
};

for (i = 1,i<=N Items(url_list),i++,
	if (i == 1,
		dt_all = Open(
			eval(url_list[i]),
			HTML Table( 1, Column Names( 1 ), Data Starts( 2 ) )
		);
		dt_all << Set Name( Concat(word(-1,eval(url_list[1]),"-/"), ".jmp") );
		dt_all << New Column("SourceTable", Character, Nominal,<<Set Each Value( (word(-1,eval(url_list[1]),"-/"))));
		dt_all << Go To(:SourceTable);
		dt_all << Move Selected Columns( To first );
		,
		dt_i = Open(
			eval(url_list[i]),
			HTML Table( 1, Column Names( 1 ), Data Starts( 2 ) )
		);
		dt_i << Set Name( Concat(word(-1,eval(url_list[i]),"-/"), ".jmp") );
		n_old = nrows(dt_all);
		dt_all = Data Table (dt_all) << Concatenate(dt_i, Append to first table);
		n_new = nrows(dt_all);
		Current Data Table(dt_all);
		:SourceTable[eval(n_old+1)::n_new] = word(-1,eval(url_list[i]),"-/");
		Close(dt_i, NoSave);
		
	)
);