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

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