iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion primo_dos(a) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            primo_dos(sucede(sucede(a)));
            si junto-a-zumbador entonces repetir 2 veces deja-zumbador;
        fin sino inicio
            primo_dos(0);
            deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion primo_tres(b) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                primo_tres(sucede(sucede(sucede(b))));
                si junto-a-zumbador entonces repetir 3 veces deja-zumbador;
            fin sino inicio
                primo_tres(0);
                repetir 2 veces deja-zumbador;
            fin;
        fin sino inicio
            primo_tres(0);
            repetir 1 veces deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion primo_cinco(c) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        primo_cinco(sucede(sucede(sucede(sucede(sucede(c))))));
                        si junto-a-zumbador entonces repetir 5 veces deja-zumbador;
                    fin sino inicio
                        primo_cinco(0);
                        repetir 4 veces deja-zumbador;
                    fin;
                fin sino inicio
                    primo_cinco(0);
                    repetir 3 veces deja-zumbador;
                fin;
            fin sino inicio
                primo_cinco(0);
                repetir 2 veces deja-zumbador;
            fin;
        fin sino inicio
            primo_cinco(0);
            repetir 1 veces deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion primo_siete(d) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces inicio
                                coge-zumbador;
                                primo_siete(sucede(sucede(sucede(sucede(sucede(sucede(sucede(d))))))));
                                si junto-a-zumbador entonces repetir 7 veces deja-zumbador;
                            fin sino inicio
                                primo_siete(0);
                                repetir 6 veces deja-zumbador;
                            fin;
                        fin sino inicio
                            primo_siete(0);
                            repetir 5 veces deja-zumbador;
                        fin;
                    fin sino inicio
                        primo_siete(0);
                        repetir 4 veces deja-zumbador;
                    fin;
                fin sino inicio
                    primo_siete(0);
                    repetir 3 veces deja-zumbador;
                fin;
            fin sino inicio
                primo_siete(0);
                repetir 2 veces deja-zumbador;
            fin;
        fin sino inicio
            primo_siete(0);
            repetir 1 veces deja-zumbador;
        fin;
    fin;
fin;
define-nueva-instruccion modificar(e) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        modificar(sucede(e));
    fin sino inicio
        si si-es-cero(precede(e)) entonces repetir 4 veces deja-zumbador;
        si si-es-cero(precede(precede(e))) entonces repetir 11 veces deja-zumbador;
        si si-es-cero(precede(precede(precede(e)))) entonces repetir 11 veces deja-zumbador;
        si si-es-cero(precede(precede(precede(precede(precede(e)))))) entonces repetir 11 veces deja-zumbador;
        si si-es-cero(precede(precede(precede(precede(precede(precede(precede(e)))))))) entonces repetir 11 veces deja-zumbador;
        si no-junto-a-zumbador entonces repetir e veces deja-zumbador;
    fin;
fin;

define-nueva-instruccion primos como inicio
    repetir 4 veces inicio
        si frente-libre entonces inicio
            avanza;
            si junto-a-zumbador entonces inicio
                modificar(0);
                primo_dos(0);
                si junto-a-zumbador entonces inicio
                    primo_tres(0);
                    si junto-a-zumbador entonces inicio
                        primo_cinco(0);
                        si junto-a-zumbador entonces inicio
                            primo_siete(0);
                            si junto-a-zumbador entonces inicio
                                mientras junto-a-zumbador hacer coge-zumbador;
                                deja-zumbador;
                                primos;
                            fin sino inicio
                                deja-zumbador;
                            fin;
                        fin sino inicio
                            deja-zumbador;
                        fin;
                    fin sino inicio
                        deja-zumbador;
                    fin;
                fin sino inicio
                    deja-zumbador;
                fin;
            fin;
            gira(2);
            avanza;
            gira(2);
        fin;
        gira(1);
    fin;
    apagate;
fin;


    inicia-ejecucion

    mientras junto-a-zumbador hacer coge-zumbador;
    repetir 1 veces deja-zumbador;
    primos;

        apagate;
    termina-ejecucion
finalizar-programa
