let zip (xs, ys) =
	List.rev (List.fold_left (fun acc hx -> match ys with
	| h::t -> (hx, h)::acc
	| [] -> acc
																) [] xs);;


zip( [1;2;3] ,['a';'b';'c']);;