let schuffle l1 l2 =
	let rec pom li1 li2 out


	match li1 with
	| [] -> []
	| h::t -> (out :: hd li1)
	match li2 with
	| [] -> []
	| h::t -> (out :: hd li2)

	if li1 = [] && li2 = [] then out else pom tl li1 tl li2 out
	in pom(l1 l2 []);;