let repeat x = let loop = Cons x loop in loop
in repeat 7