chop_list : int -> 'a list -> 'a list * 'a list
# chop_list 3 [1;2;3;4;5];; val it : int list * int list = ([1; 2; 3], [4; 5])