let f l =
	let rec loop seen rest = match rest with
		| [] -> seen
		| h::t ->
			if List.mem h seen then loop seen t
			else loop (h::seen) t
	in List.rev (loop [] l)
;;