{ Un joli arbre }

{ Necessite les procedures et la tortue }

PROC ARBRE(X) [
  IF X>0 [
    AV X*10 :
    TD X*5 : ARBRE(X-1) :
    TG X*10 : ARBRE(X-1) :
    UP : TD X*5 : RE X*10 : DOWN
  ]
] :

TG 90 :
ARBRE(6)