iniciar-programa
define-nueva-instruccion rec(n) como
    inicio
    si si-es-cero(n) entonces
    inicio
     mientras no-junto-a-zumbador hacer
    inicio
    si frente-bloqueado entonces gira-izquierda;
    avanza;
    fin;
    sal-de-instruccion;
    fin
    sino
    inicio
si junto-a-zumbador entonces
    inicio
    si frente-bloqueado entonces
        inicio
        gira-izquierda;
        fin;

        avanza;
    fin;
 mientras no-junto-a-zumbador hacer
    inicio
    si frente-bloqueado entonces gira-izquierda;
    avanza;
    fin;
rec(precede(n));
sal-de-instruccion;
fin;
fin;


define-nueva-instruccion perdidos(n) como
inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    perdidos(sucede(n));
    sal-de-instruccion;
    fin;
    rec(n);
    sal-de-instruccion;
fin;

define-nueva-instruccion bloques(n) como
    inicio
    si  no-orientado-al-sur o frente-libre entonces
        inicio
        si frente-bloqueado entonces gira-izquierda;
        avanza;
        si junto-a-zumbador entonces
        bloques(sucede(n));
        sal-de-instruccion;
        fin;
      si junto-a-zumbador entonces
      inicio
      mientras junto-a-zumbador hacer coge-zumbador;
      bloques(precede(n));
      sal-de-instruccion;
      fin;
      mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     repetir n veces perdidos(0);
     sal-de-instruccion;
    fin;
define-nueva-instruccion recoge(n) como
inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    recoge(sucede(n));
    fin;
    mientras no-orientado-al-oeste hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir n veces deja-zumbador;
    apagate;
fin;
    inicia-ejecucion
    mientras no-orientado-al-oeste hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;  
    bloques(0);
    recoge(0);
        apagate;
    termina-ejecucion
finalizar-programa
