iniciar-programa

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

    define-nueva-instruccion coge-zumbadores como inicio
        repetir 13 veces inicio
            mientras frente-libre hacer inicio
                si junto-a-zumbador entonces coge-zumbador;
                avanza;
            fin;
            gira(2);
            mientras frente-libre hacer avanza;
            si derecha-libre entonces inicio
                gira(3);
                avanza;
                gira(3);
            fin
            sino inicio
                gira(2);
            fin;
        fin;
        mientras no-orientado-al-sur hacer gira-izquierda;
        mientras frente-libre hacer avanza;
        mientras no-orientado-al-este hacer gira-izquierda;
    fin;

    define-nueva-instruccion base(n) como inicio
        deja-zumbador;
        repetir precede(n) veces inicio
            avanza;
            deja-zumbador;

        fin;
        si no si-es-cero (precede(n)) entonces inicio
            mientras no-orientado-al-oeste hacer gira-izquierda;
            mientras frente-libre y junto-a-zumbador hacer avanza;
            si junto-a-zumbador entonces inicio
                gira(3);
                avanza;
                gira(3);
                avanza;
            fin
            sino inicio
                gira(3);
                avanza;
                gira(3);
                avanza;
                avanza;
            fin;
            base(precede(precede(n)));
        fin;
        apagate;
    fin;

    define-nueva-instruccion calcula(n) como inicio
        si si-es-cero (precede(n)) entonces inicio
            base(1);
        fin;
        si si-es-cero (precede(precede(n))) entonces inicio
            base(3);
        fin;
        si si-es-cero (precede(precede(precede(n)))) entonces inicio
            base(5);
        fin;
        si si-es-cero (precede(precede(precede(precede(n))))) entonces inicio
            base(7);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(n)))))) entonces inicio
            base(9);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(n))))))) entonces inicio
            base(11);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(n)))))))) entonces inicio
            base(13);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(n))))))))) entonces inicio
            base(15);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))) entonces inicio
            base(17);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))) entonces inicio
            base(19);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))) entonces inicio
            base(21);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))) entonces inicio
            base(23);
        fin;
        si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))) entonces inicio
            base(25);
        fin;
    fin;

    define-nueva-instruccion raiz(n) como inicio
        repetir n veces inicio
            repetir n veces inicio
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                fin
                sino inicio
                fin;
            fin;
        fin;
        si no-junto-a-zumbador entonces inicio
            calcula(n);
        fin
        sino inicio
            repetir n veces inicio
                repetir n veces inicio
                    deja-zumbador;
                fin;
            fin;
            raiz(sucede(n));
        fin;
    fin;

    inicia-ejecucion
        mientras no-orientado-al-este hacer gira-izquierda;
        coge-zumbadores;
        mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
        raiz(1);
        apagate;
    termina-ejecucion
finalizar-programa
