let unit = { r = 1.; i = 0. } and z0 = {r = 1.; i = 0.1} let rec z n = if n = 0 then unit else z (n-1) ** z0;; z 99;;