iniciar-programa
    define-nueva-instruccion cuenta como
    inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    cuenta;
    deja-zumbador;
    fin
    sino
    inicio
    mientras no-orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    mientras no-orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    fin;
    fin;



   define-nueva-instruccion prueba(n) como
   inicio
   si junto-a-zumbador entonces
   inicio
   coge-zumbador;
   prueba(precede(n));
   si orientado-al-este entonces
   deja-zumbador;
   fin
   sino
   inicio
   si si-es-cero(n) entonces
       inicio
       mientras no-orientado-al-norte hacer
       gira-izquierda;
       fin;

   fin;
   fin;


    define-nueva-instruccion recoge(n) como
        inicio
    si junto-a-zumbador entonces
    inicio
    coge-zumbador;
    recoge(sucede(n));
    fin
    sino
    inicio
    mientras  frente-libre hacer
    inicio
        mientras no-orientado-al-este hacer
        gira-izquierda;
        si frente-libre entonces
        avanza;
        mientras frente-libre y no-junto-a-zumbador hacer
        avanza;
        si junto-a-zumbador entonces
        prueba(n);
    fin;
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    avanza;
    deja-zumbador;
    gira-izquierda;
    gira-izquierda;
    avanza;
    mientras no-orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    mientras no-orientado-al-este hacer
    gira-izquierda;

    fin;

          fin;
    inicia-ejecucion
    mientras no-orientado-al-este  hacer
    gira-izquierda;
    mientras frente-libre hacer
    inicio
    si junto-a-zumbador entonces
    recoge(0);
    avanza;
    fin;
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    avanza;
    cuenta;
        apagate;
    termina-ejecucion
finalizar-programa
