bloglang/13/examples/errors/pattern_too_many_args.txt

data List = { Nil, Cons Int List }

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