À faire avec le dessin de la division en 4 sous les yeux. Les échecs eventuels sont instructifs et produisent des fractales parfois inattendues.

let rec fractale n =
  if n <= 0 then Feuille Noir
  else
     let c = fractale (n-1) in
     let c1 = Noeud (c,c,c,Feuille Blanc) in
     let c3 = rotate c1 in
     let c4 = rotate c3 in
     let c2 = rotate c4 in
     Noeud (c1,c2,c3,c4)