subtract : (* list -> * list -> * list)
#subtract [1;2;3] [3;5;4;1];; [2] : int list #subtract [1;2;4;1] [4;5];; [1; 2; 1] : int list