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;;