Lists, rationals, polynomials and intervals - Implementation (types and basic operations) : List_1.cons

let cons_list = function x, l -> x :: l