remove : ('a -> bool) -> 'a list -> 'a * 'a list
# remove (fun x -> x >= 3) [1;2;3;4;5;6];; val it : int * int list = (3, [1; 2; 4; 5; 6])