data List a = { Nil, Cons a (List a) }

defn fix f = { let { defn x = { f x } } in { x } }
defn fixpointOnes fo = { Cons 1 fo }
defn sumTwo l = {
    case l of {
        Nil -> { 0 }
        Cons x xs -> {
            x + case xs of {
                Nil -> { 0 }
                Cons y ys -> { y }
            }
        }
    }
}

defn main = { sumTwo (fix fixpointOnes) }