iniciar-programa
    define-nueva-instruccion paso(n) como
    inicio
        si no si-es-cero(n) entonces
        inicio
            si frente-libre y izquierda-bloqueada entonces         avanza
            sino
            inicio
                si izquierda-libre entonces
                inicio
                    gira-izquierda;
                    avanza;
                fin
                sino
                inicio
                    si frente-bloqueado entonces
                    inicio
                        mientras frente-bloqueado hacer repetir 3 veces gira-izquierda;
                        avanza;
                    fin;
                fin;
            fin;
            si junto-a-zumbador entonces apagate;
            paso(precede(n));
        fin;
    fin;
    define-nueva-instruccion pasod(n) como
    inicio
        si no(si-es-cero(n)) entonces
        inicio
            si frente-libre y derecha-bloqueada entonces
            inicio
                avanza;
            fin
            sino
            inicio
                si derecha-libre entonces
                inicio
                    repetir 3 veces gira-izquierda;
                    avanza;
                fin
                sino
                inicio
                    si frente-bloqueado entonces
                    inicio
                        mientras frente-bloqueado hacer gira-izquierda;
                        avanza;
                    fin;
                fin;
            fin;
            si junto-a-zumbador entonces apagate;
                                pasod(precede(n));
        fin;
    fin;
    inicia-ejecucion
        mientras no izquierda-bloqueada hacer gira-izquierda;
        si junto-a-zumbador entonces apagate;
        paso(4);
        repetir 2 veces gira-izquierda;
        avanza;
        pasod(24);
        repetir 2 veces gira-izquierda;
        avanza;
        paso(63);
        repetir 2 veces gira-izquierda;
        avanza;
        pasod(175);
        repetir 2 veces gira-izquierda;
        avanza;
        paso(447);
        repetir 2 veces gira-izquierda;
        avanza;
        pasod(1087);
        repetir 2 veces gira-izquierda;
        avanza;
        paso(2559);
        repetir 2 veces gira-izquierda;
        avanza;
        pasod(5887);
        repetir 2 veces gira-izquierda;
        avanza;
        paso(13311);
        repetir 2 veces gira-izquierda;
        avanza;
        pasod(40959);
        repetir 2 veces gira-izquierda;
        avanza;
        paso(40959);
        repetir 2 veces gira-izquierda;
        avanza;
    termina-ejecucion
finalizar-programa
