let rec multtab x y =
	let rec line y =
		if y = 0 then []
		else line (y-1) @ [x*y];
	in multtab (x-1) y @ [line y];;