mk_cons : term -> term -> term
# mk_cons `1` `l:num list`;; val it : term = `CONS 1 l` # mk_cons `1` `[2;3;4]`;; val it : term = `[1; 2; 3; 4]`