type 'a my_list = Cons of 'a * 'a my_list
                | Nil