iniciar-programa

define-nueva-instruccion norte como inicio
      mientras no-orientado-al-norte 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 oeste como inicio
      mientras no-orientado-al-oeste 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 ir-1-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 sube(n) como inicio
   repetir n veces inicio
      pon1;
      este;
      avanza;
      pon1;
      norte;
      avanza;
      pon1;
   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 piramide(n) como inicio
   si algun-zumbador-en-la-mochila entonces inicio
      ir-1-1;
      sube(n);
      baja(n);
      piramide(sucede(n));
   fin;
fin;

define-nueva-instruccion cima como inicio
   ir-1-1;
   mientras junto-a-zumbador hacer inicio
      este;
      avanza;
      norte;
      avanza;
   fin;
   sur;
   avanza;
   oeste;
   avanza;
fin;

    inicia-ejecucion
       pon1;
       piramide(0);
       cima;
       apagate;
    termina-ejecucion
finalizar-programa
