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;
        avanzabinder(n);
        avanzabinder(sucede(n));
        repetir 2 veces gira-izquierda;
        avanzabinizq(sucede(n));
        vida(sucede(sucede(n)));
    fin;
    inicia-ejecucion
        mientras izquierda-libre hacer gira-izquierda;
        vida(0);
        apagate;
    termina-ejecucion
finalizar-programa

