Tercer intento

Efectuaremos los mismos movimientos que en la sección anterior, pero trazando consecutivamente líneas horizontales:

   para rectangulo :alto :ancho
      gd 90 av :ancho re :ancho
      repite :alto-1 [gi 90 av 1 gd 90 av :ancho re :ancho]
   fin