epicours/Exam.md

Multiple insertion

# let rec remove_x x = function
	| [] -> []
	| e::t -> 
		if (e = x) then
			remove_x x t
		else e::remove_x x t

val remove_x: 'a -> 'a list -> 'a list

# let rec remove_duplicates = function
	| [] -> []
	| e::t -> remove_duplicates (remove_x e)::t