insert : 'a -> 'a list -> 'a list
# insert 5 (1--10);; val it : int list = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] # insert 15 (1--10);; val it : int list = [15; 1; 2; 3; 4; 5; 6; 7; 8; 9; 10]