iniciar-programa

    define-nueva-instruccion Norte como inicio
        mientras no-orientado-al-norte hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion Sur como inicio
        mientras no-orientado-al-sur hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion Este como inicio
        mientras no-orientado-al-este hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion Oeste como inicio
        mientras no-orientado-al-oeste hacer inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion Ir11 como inicio
        Sur;
        mientras frente-libre hacer inicio
            avanza;
        fin;
        Oeste;
        mientras frente-libre hacer inicio
            avanza;
        fin;
        Norte;
    fin;


    define-nueva-instruccion marcar2(n) como inicio
        Ir11;
        mientras no-junto-a-zumbador hacer inicio
            repetir n veces inicio
                si frente-libre entonces inicio
                    avanza;
                fin;
            fin;
        fin;
        Sur;
    fin;

    define-nueva-instruccion toma2(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            toma2(sucede(n));
        fin
        sino inicio
            marcar2(n)
        fin;
    fin;

    define-nueva-instruccion marcar(n) como inicio
        Norte;
        mientras frente-libre hacer inicio
            repetir n veces inicio
                si frente-libre entonces inicio
                    avanza;
                fin;
            fin;
            deja-zumbador;
        fin;
    fin;

    define-nueva-instruccion toma(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            toma(sucede(n));
        fin
        sino inicio
            marcar(n)
            fin;
    fin;

    define-nueva-instruccion Ir12 como inicio
        Sur;
        mientras frente-libre hacer inicio
            avanza;
        fin;
        Oeste;
        mientras frente-libre hacer inicio
            avanza;
        fin;
        Este;
        avanza;
    fin;

    define-nueva-instruccion regresa como inicio
        si frente-libre entonces inicio
            avanza;
            regresa;
            deja-zumbador;
        fin
        sino inicio
            Este;
            avanza;
            avanza;
        fin;
    fin;

    inicia-ejecucion

        Ir11;
        toma(0);
        Ir12;
        toma2(0);
        regresa;
        apagate;
    termina-ejecucion
finalizar-programa
