blog-static/code/compiler/11/examples/works3.txt

data List = { Nil, Cons Int List }
data Bool = { True, False }
defn length l = {
    case l of {
        Nil -> { 0 }
        Cons x xs -> { 1 + length xs }
    }
}
defn main = { length (Cons True (Cons False (Cons True Nil))) }