iniciar-programa
    define-nueva-instruccion avaizq como inicio
        si izquierda-libre entonces inicio
            gira-izquierda;
        fin;
        si frente-bloqueado entonces repetir 3 veces gira-izquierda;
        si frente-libre entonces inicio
            avanza;
            si junto-a-zumbador entonces apagate;
        fin;
    fin;
    define-nueva-instruccion avader como inicio
        si derecha-libre entonces inicio
            repetir 3 veces gira-izquierda;
        fin;
        mientras frente-bloqueado hacer gira-izquierda;
        si frente-libre entonces inicio
            avanza;
            si junto-a-zumbador entonces apagate;
        fin;
    fin;
    define-nueva-instruccion avanzabinizq(n) como inicio
        si no si-es-cero(n) entonces inicio
            avanzabinizq(precede(n));
            avanzabinizq(precede(n));
        fin sino inicio
            avaizq;
        fin;
    fin;
    define-nueva-instruccion avanzabinder(n) como inicio
        si no si-es-cero(n) entonces inicio
            avanzabinder(precede(n));
            avanzabinder(precede(n));
        fin sino inicio
            avader;
        fin;
    fin;
    define-nueva-instruccion vida(n) como inicio
        avanzabinizq(n);
        repetir 2 veces gira-izquierda;
        si derecha-libre entonces inicio
            avanza;
        fin;
        avanzabinder(n);
        avanzabinder(sucede(n));
        repetir 2 veces gira-izquierda;
        si izquierda-libre entonces inicio
            avanza;
        fin;
        avanzabinizq(sucede(n));
        vida(sucede(sucede(n)));
    fin;

        define-nueva-instruccion izquierda(n) como inicio
        mientras izquierda-bloqueada y frente-libre y no junto-a-zumbador hacer inicio
         avanza;
        izquierda(0);
        fin;
        si frente-bloqueado y derecha-libre y no junto-a-zumbador entonces inicio
        repetir 3 veces gira-izquierda;
        izquierda(0);
        fin;
        si izquierda-libre y no junto-a-zumbador entonces inicio
        gira-izquierda; avanza; gira-izquierda; avanza;
        izquierda(0);
        fin;
        si junto-a-zumbador entonces apagate;
        fin;


    inicia-ejecucion
        si orientado-al-oeste y frente-bloqueado y derecha-bloqueada y izquierda-libre  entonces inicio
          repetir 2 veces gira-izquierda;
         izquierda(0);
        fin
        sino inicio

        mientras izquierda-libre hacer gira-izquierda;
        si junto-a-zumbador entonces
        apagate;
        vida(0);
        fin;
        apagate;
    termina-ejecucion
finalizar-programa
