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

    define-nueva-instruccion menor como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            menor;
            deja-zumbador;
        fin sino inicio
            gira(2);
            avanza;
            mientras junto-a-zumbador hacer coge-zumbador;
        fin;
    fin;

    define-nueva-instruccion mayor como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            mayor;
            deja-zumbador;
        fin sino inicio
            gira(2);
            avanza;
            avanza;
        fin;
    fin;

    define-nueva-instruccion resta(x) como inicio
        repetir x veces inicio
            si junto-a-zumbador entonces coge-zumbador;
        fin;
        si junto-a-zumbador entonces inicio
            gira(2);
            AVANZA;
            menor;
            gira(2);
            avanza;
            repetir x veces deja-zumbador;
            gira(2);
            avanza;
        fin sino inicio
            repetir x veces deja-zumbador;
        fin;
    fin;

    define-nueva-instruccion copia(x) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            copia(sucede(x));
            deja-zumbador;
        fin sino inicio
            repetir x veces deja-zumbador;
            gira(2);
            avanza;
        fin;
    fin;

    define-nueva-instruccion cuenta(x) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            cuenta(sucede(x));
        fin sino inicio
            avanza;
            copia(0);
            gira(2);
            avanza;
            resta(x);
        fin;
    fin;

    define-nueva-instruccion regresa como inicio
        mientras no-orientado-al-oeste hacer gira(1);
        avanza;
        mientras (junto-a-zumbador y frente-libre) hacer avanza;
        gira(2);
        si no-junto-a-zumbador entonces avanza;
    fin;

    define-nueva-instruccion pasa como inicio
        mientras (junto-a-zumbador y frente-libre) hacer inicio
            cuenta(0);
            si frente-libre entonces inicio
                avanza;
                si junto-a-zumbador entonces inicio
                    gira(2);
                    avanza;
                    gira(2);
                fin;
            fin;
        fin;
    fin;

    define-nueva-instruccion ordena(x) como inicio
        si (junto-a-zumbador y frente-libre) entonces inicio
            avanza;
            ordena(sucede(x));
        fin sino inicio
            repetir x veces inicio
                regresa;
                pasa;
            fin;
        fin;
    fin;

    Define-nueva-instruccion llega21 como inicio
        mientras no-orientado-al-oeste hacer gira(1);
        mientras frente-libre hacer avanza;
        gira(3);
        avanza;
    fin;

    define-nueva-instruccion sumaprimeros como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            sumaprimeros;
            deja-zumbador;
        fin sino inicio
            avanza;
        fin;
    fin;

    define-nueva-instruccion copia-costo(x) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            copia-costo(sucede(x));
        fin sino inicio
            repetir x veces deja-zumbador;
            llega21;
            repetir x veces deja-zumbador;
            gira(2);
            avanza;
            gira(1);
            mientras no-junto-a-zumbador hacer avanza;
        fin;
    fin;

    inicia-ejecucion
        mientras junto-a-zumbador hacer inicio
            avanza;
            si junto-a-zumbador entonces inicio
                gira(2);
                avanza;
                gira(2);
            fin sino inicio
                apagate;
            fin;
            ordena(0);
            si orientado-al-este entonces inicio
                gira(2);
                avanza;
            fin;
            mientras junto-a-zumbador y frente-libre hacer avanza;
            gira(2);
            si no-junto-a-zumbador entonces avanza;
            sumaprimeros;
            copia-costo(0);
        fin;

        apagate;
    termina-ejecucion
finalizar-programa
