let nil = Nil
let l1 = Cons (0, nil)
let l2 = Cons (1, l1)
let test = print_string ("Construction succeeds.\n")