partition : ('a -> bool) -> 'a list -> 'a list * 'a list
# partition (fun x -> x mod 2 = 0) (1--10);; val it : int list * int list = ([2; 4; 6; 8; 10], [1; 3; 5; 7; 9])