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