data List = { Nil, Cons Int List } defn head l = { case l of { Nil -> { 0 } Cons x y z -> { x } } }