iniciar-programa

    define-nueva-instruccion gira(n) como inicio
        repetir n veces gira-izquierda;
    fin;

    define-nueva-instruccion orientar como 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;
        mientras no-orientado-al-norte hacer gira-izquierda;
    fin;

    define-nueva-instruccion cuentalos(n) como inicio
        si frente-libre entonces inicio
            avanza;
            si junto-a-zumbador entonces inicio
                cuentalos(sucede(n));
            fin;
            si frente-bloqueado entonces inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        cuentalos(sucede(n));
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            cuentalos(sucede(n));
                        fin;
                    fin
                    sino inicio
                        si junto-a-zumbador entonces inicio
                            orientar;
                            mientras junto-a-zumbador hacer coge-zumbador;
                            repetir sucede(n) veces deja-zumbador;
                            apagate;
                        fin
                        sino inicio
                            orientar;
                            mientras junto-a-zumbador hacer coge-zumbador;
                            repetir n veces deja-zumbador;
                            apagate;
                        fin;
                  fin;
                fin;
            fin;
        fin
        sino inicio
        si frente-bloqueado entonces inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        cuentalos(sucede(n));
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            cuentalos(sucede(n));
                        fin;
                    fin
                    sino inicio
                        si junto-a-zumbador entonces inicio
                            orientar;
                            mientras junto-a-zumbador hacer coge-zumbador;
                            repetir n veces deja-zumbador;
                            apagate;
                        fin
                        sino inicio
                            orientar;
                            mientras junto-a-zumbador hacer coge-zumbador;
                            repetir n veces deja-zumbador;
                            apagate;
                        fin;
                    fin;
                fin;
        fin;
        fin;
        cuentalos(n);
    fin;

    define-nueva-instruccion aux(n) como inicio
        si frente-libre y no si-es-cero (n) entonces inicio
            si no-junto-a-zumbador entonces deja-zumbador;
            si frente-libre entonces avanza;
            si no-junto-a-zumbador entonces deja-zumbador;
            aux(precede(n));
            avanza;
        fin
        sino inicio
            gira(2);
        fin;
    fin;

    define-nueva-instruccion cuarta(n) como inicio
        si no si-es-cero (n)  entonces inicio
            gira(3);
            aux(n);
            gira(3);
            si frente-libre entonces inicio
                avanza;
                cuarta(precede(n));
                avanza;
            fin
            sino inicio
                si no-junto-a-zumbador entonces deja-zumbador;
                gira(2);
            fin;
        fin
        sino inicio
            si no-junto-a-zumbador entonces deja-zumbador;
            gira(2);
        fin;
    fin;

    define-nueva-instruccion rellena(n) como inicio
     si frente-bloqueado entonces inicio
        mientras frente-bloqueado hacer inicio
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                si junto-a-zumbador entonces inicio
                    deja-zumbador;
                    repetir 4 veces inicio
                        cuarta(n);
                        gira(3);
                    fin;
                fin
                sino inicio
                    deja-zumbador;
                fin;
            fin;
            si frente-bloqueado entonces inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces inicio
                            deja-zumbador;
                            repetir 4 veces inicio
                                cuarta(n);
                                gira(3);
                            fin;
                        fin
                        sino inicio
                            deja-zumbador;
                        fin;
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces inicio
                                deja-zumbador;
                                repetir 4 veces inicio
                                    cuarta(n);
                                    gira(3);
                                fin;
                            fin
                            sino inicio
                                deja-zumbador;
                            fin;
                        fin;
                    fin
                    sino inicio
                        orientar;
                        si junto-a-zumbador entonces inicio
                            cuentalos(1);
                        fin
                        sino inicio
                            cuentalos(0);
                        fin;
                    fin;
                fin;
            fin;
        fin;
     fin
     sino inicio
        mientras frente-libre hacer inicio
            avanza;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                si junto-a-zumbador entonces inicio
                    deja-zumbador;
                    repetir 4 veces inicio
                        cuarta(n);
                        gira(3);
                    fin;
                fin
                sino inicio
                    deja-zumbador;
                fin;
            fin;
            si frente-bloqueado entonces inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces inicio
                            deja-zumbador;
                            repetir 4 veces inicio
                                cuarta(n);
                                gira(3);
                            fin;
                        fin
                        sino inicio
                            deja-zumbador;
                        fin;
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces inicio
                                deja-zumbador;
                                repetir 4 veces inicio
                                    cuarta(n);
                                    gira(3);
                                fin;
                            fin
                            sino inicio
                                deja-zumbador;
                            fin;
                        fin;
                    fin;
                fin;
            fin;
        fin;
        orientar;
        si junto-a-zumbador entonces inicio
            cuentalos(1);
        fin
        sino inicio
            cuentalos(0);
        fin;
      fin;
    fin;

    define-nueva-instruccion sobre-pon(n) como inicio
      si frente-bloqueado entonces inicio
           mientras frente-bloqueado hacer inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        repetir sucede(n) veces deja-zumbador;
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            coge-zumbador;
                            repetir sucede(n) veces deja-zumbador;
                        fin;
                    fin
                    sino inicio
                        orientar;
                        rellena(n);
                    fin;
                fin;
           fin;
      fin
      sino inicio
        mientras frente-libre hacer inicio
            avanza;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                repetir sucede(n) veces deja-zumbador;
            fin;
            si frente-bloqueado entonces inicio
                si orientado-al-norte y derecha-libre entonces inicio
                    gira(3);
                    avanza;
                    gira(3);
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        repetir sucede(n) veces deja-zumbador;
                    fin;
                fin
                sino inicio
                    si orientado-al-sur y izquierda-libre entonces inicio
                        gira-izquierda;
                        avanza;
                        gira-izquierda;
                        si junto-a-zumbador entonces inicio
                            coge-zumbador;
                            repetir sucede(n) veces deja-zumbador;
                        fin;
                    fin;
                fin;
            fin;
        fin;
        orientar;
        rellena(n);
      fin;
    fin;

    define-nueva-instruccion cuenta(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            cuenta(sucede(n));
        fin
        sino inicio
            sobre-pon(n);
        fin;
    fin;

    inicia-ejecucion
        cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
