input mp-scratch;

  beginfig(1);
  draw Drapeau;
  draw Aller(-200,-150);
  draw Orienter(0);
  draw Effacer;
  draw PoserStylo;
  draw Demander("\opSimple{rang ?}");
  draw MettreVar("rang","\opCap{réponse}");
  draw Demander("\opSimple{dimension du motif ?}");
  draw MettreVar("rang","\opCap{réponse}");
  draw Bloc("Sierpinski \opBloc{rang} \opBloc{triangles}");
  _coinprec:=(10cm,0);
  draw NouveauBloc("Sierpinski \opBloc{rang} \opBloc{triangles}");
  draw Si1("\opOp{non $\opBloc{rang}\bm{=}0$}");
  draw Repeter2(3);
  draw Bloc("Sierpinski \opOp{$\opBloc{rang}\bm{-}\opSimple{1}$} \opOp{$\opBloc{triangles}\,\bm{/}\,\opSimple{2}$}");
  draw Avancer("\opBloc{triangles}");
  draw Tournerd(120);
  draw FinBlocRepeter2(10);
  draw FinBlocSi1;
endfig;

end