iniciar-programa
define-nueva-instruccion norte como inicio
   mientras no orientado-al-norte hacer inicio
      gira-izquierda;
   fin;
fin;
define-nueva-instruccion oeste como inicio
   mientras no orientado-al-oeste hacer inicio
      gira-izquierda;
   fin;
fin;
define-nueva-instruccion este como inicio
   mientras no orientado-al-este hacer inicio
      gira-izquierda;
   fin;
fin;
define-nueva-instruccion sur como inicio
   mientras no orientado-al-sur hacer inicio
      gira-izquierda;
   fin;
fin;
define-nueva-instruccion gira-derecha como inicio
   gira-izquierda;
   gira-izquierda;
   gira-izquierda;
FIN;

define-nueva-instruccion  ir1-1 como inicio
   si no orientado-al-oeste entonces inicio
       oeste;
   fin;
    mientras frente-libre y orientado-al-oeste hacer inicio
       avanza;

    fin;
    norte;
fin;
 define-nueva-instruccion pon1 como inicio
    si no junto-a-zumbador entonces inicio
       deja-zumbador;

    fin;
 fin;
 define-nueva-instruccion baja(n) como inicio
    repetir n veces inicio
       pon1;
       sur;
       avanza;
       pon1;
       este;
       avanza;
       pon1;
    fin;
 fin;
 define-nueva-instruccion sube(n) como inicio
     repetir n veces inicio
         pon1;
         este;
         avanza;
         pon1;
         norte;
         avanza;
         pon1;
     fin;
 fin;
 define-nueva-instruccion piramide(n) como inicio
    si algun-zumbador-en-la-mochila entonces inicio
       ir1-1;
       sube(n);
       baja(n);
       piramide(sucede(n));
    fin;
 fin;

define-nueva-instruccion sima como inicio
    ir1-1;
    mientras junto-a-zumbador hacer inicio
        este;
        avanza;
        norte;
        avanza;
    fin;
    sur;
    avanza;
    oeste;
    avanza;
fin;
    inicia-ejecucion
      pon1;
      piramide(0);
      sima;
      norte;
        apagate;
    termina-ejecucion
finalizar-programa
