pour hexagone cote
rep 6 [ av cote; td 60 ]
fin

pour carapace longueur nombre_iterations
hexagone longueur
si (nombre_iterations>0) alors  [
   av longueur/3; 
   rep 6 [ carapace longueur/3 nombre_iterations-1 ; av 2*longueur/3; td 60; av longueur/3]; 
   re longueur/3]
fin