iniciar-programa
define-nueva-instruccion gira-derecha como
inicio
    repetir 3 veces gira-izquierda;
fin;
define-nueva-instruccion media-vuelta como
inicio
    gira-izquierda;
    gira-izquierda;
fin;
define-nueva-instruccion llenar como
inicio
    mientras no orientado-al-oeste hacer gira-izquierda;
    mientras izquierda-bloqueada hacer avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    avanza; avanza;
fin;
define-nueva-instruccion contar(n) como
inicio
    si frente-libre entonces
    inicio
        avanza;
        contar(sucede(n));
    fin
    sino inicio
        llenar;
        repetir n veces
        inicio
            coge-zumbador;
            coge-zumbador;
        fin;
        media-vuelta;
        mientras frente-libre hacer avanza;
        gira-derecha;
        avanza;
        avanza;
        mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    fin;
fin;
define-nueva-instruccion contar-siguiente(n) como
inicio
    si frente-libre entonces
    inicio
        avanza;
        contar-siguiente(sucede(n));
    fin
    sino inicio
        llenar;
        repetir n veces
        inicio
            coge-zumbador;
            coge-zumbador;
            coge-zumbador;
        fin;
        media-vuelta;
        mientras frente-libre hacer avanza;
        gira-derecha;
        avanza;
        avanza;
        avanza;
        mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    fin;
fin;
define-nueva-instruccion agarrar como
inicio
    mientras no-orientado-al-sur hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    avanza; avanza; avanza; avanza;
fin;
define-nueva-instruccion clonar(n) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        clonar(sucede(n));
    fin
    sino inicio
        repetir n veces deja-zumbador;
        agarrar;
        repetir n veces coge-zumbador;
        media-vuelta;
        avanza; avanza; avanza;
        gira-derecha;
        avanza; avanza; avanza;
        repetir n veces deja-zumbador;
    fin;
fin;
define-nueva-instruccion clonar-dos(n) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        clonar-dos(sucede(n));
    fin
    sino inicio
        repetir n veces deja-zumbador;
        agarrar;
        repetir n veces coge-zumbador;
        media-vuelta;
        avanza; avanza; avanza;
        gira-derecha;
        avanza; avanza;
        repetir n veces deja-zumbador;
    fin;
fin;
define-nueva-instruccion calcular como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        si junto-a-zumbador entonces
        inicio
            avanza;
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    media-vuelta;
                    avanza;
                    media-vuelta;
                    calcular;
                fin
                sino inicio
                    gira-izquierda;
                    avanza;
                    gira-izquierda;
                    avanza;
                fin;
            fin
            sino inicio
                gira-izquierda;
                avanza;
                gira-izquierda;
                avanza;
            fin;
        fin
        sino inicio
            gira-izquierda;
            avanza;
            gira-derecha;
            avanza;
        fin;
    fin;
fin;
define-nueva-instruccion sembrar(n) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        sembrar(sucede(n));
    fin
    sino inicio
        repetir n veces deja-zumbador;
        agarrar;
        repetir n veces coge-zumbador;
        media-vuelta;
        mientras frente-libre hacer avanza;
        repetir n veces deja-zumbador;
    fin;
fin;
    inicia-ejecucion
        mientras no-orientado-al-este hacer gira-izquierda;
        avanza; avanza;
        gira-izquierda;
        avanza; avanza;
        gira-derecha;
        contar(0);
        avanza; avanza; avanza;
        gira-derecha;
        avanza; avanza;
        contar-siguiente(0);
        clonar(0);
        gira-izquierda;
        avanza;
        gira-izquierda;
        avanza;
        clonar-dos(0);
        calcular;
        sembrar(0);
        apagate;
    termina-ejecucion
finalizar-programa