iniciar-programa
 define-nueva-instruccion media-vuelta como inicio
  gira-izquierda;
  gira-izquierda;
fin;
define-nueva-instruccion regresa como inicio
  media-vuelta;
  si frente-libre entonces inicio
    avanza;
  fin;
  media-vuelta;
fin;
  define-nueva-instruccion area como inicio
    si junto-a-zumbador entonces inicio
      coge-zumbador;
     si junto-a-zumbador entonces inicio
      coge-zumbador;
      repetir 4 veces inicio
        gira-izquierda;
        si frente-libre entonces inicio
          avanza;
          si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
              deja-zumbador;
              area;
            fin
            sino inicio
              deja-zumbador;
              regresa;
            fin;
          fin
          sino inicio
            regresa;
          fin;
        fin;
      fin;
      regresa;
     fin
     sino inicio
       deja-zumbador;
     fin;
    fin;
  fin;
  define-nueva-instruccion sob(n) como inicio
   mientras no-orientado-al-este hacer inicio
    si si-es-cero(n) entonces inicio
       mientras no-orientado-al-oeste hacer inicio
       gira-izquierda;
     fin;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     gira-izquierda;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     mientras junto-a-zumbador hacer inicio
       coge-zumbador;
     fin;
     apagate;
    fin;
    si junto-a-zumbador entonces inicio
      coge-zumbador;
      si junto-a-zumbador entonces inicio
        deja-zumbador;
      fin
      sino inicio
        sob(precede(n));
      fin;
    fin;
    si frente-libre entonces inicio
      avanza;
    fin
    sino inicio
      media-vuelta;
      mientras frente-libre hacer inicio
        avanza;
      fin;
      gira-izquierda;
      si frente-libre entonces inicio
        avanza;
        gira-izquierda;
      fin;
    fin;
   fin;
    mientras no-orientado-al-oeste hacer inicio
       gira-izquierda;
     fin;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     gira-izquierda;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     mientras junto-a-zumbador hacer inicio
       coge-zumbador;
     fin;
     repetir n veces inicio
       deja-zumbador;
     fin;
   apagate;
  fin;
  define-nueva-instruccion num(x) como inicio
     si junto-a-zumbador entonces inicio
       coge-zumbador;
       coge-zumbador;
       num(sucede(x));
     fin;
     mientras no-orientado-al-oeste hacer inicio
       gira-izquierda;
     fin;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     gira-izquierda;
     mientras frente-libre hacer inicio
       avanza;
     fin;
     media-vuelta;
     sob(x);
     apagate;
  fin;
    inicia-ejecucion
        area;
        mientras algun-zumbador-en-la-mochila hacer inicio
          deja-zumbador;
        fin;
        num(0);
        apagate;
    termina-ejecucion
finalizar-programa
