iniciar-programa
    define-nueva-instruccion gira-derecha como
    inicio
        repetir 3 veces gira-izquierda;
    fin;
    define-nueva-instruccion media-vuelta como
    inicio
        repetir 2 veces gira-izquierda;
    fin;
    define-nueva-instruccion Mueve-Residuo como
    inicio
        coge-zumbador;
        media-vuelta;
        avanza;
        deja-zumbador;
        media-vuelta;
        avanza;
    fin;
    define-nueva-instruccion cociente como
    inicio
        media-vuelta;
        avanza;
        mientras junto-a-zumbador hacer
        inicio
            coge-zumbador;
        fin;
        gira-izquierda;
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        deja-zumbador;
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        gira-izquierda;
        avanza;
    fin;
    define-nueva-instruccion divide(m) como
    inicio
        mientras junto-a-zumbador hacer
        inicio
            repetir m veces
            si junto-a-zumbador entonces
            inicio
                Mueve-Residuo
            fin
            sino inicio
                apagate
            fin;
            cociente
        fin;
    fin;
    define-nueva-instruccion segundo(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           segundo(sucede(n));
        fin
        sino inicio
            avanza;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            si junto-a-zumbador entonces
            inicio
                divide(n);
            fin;
        fin;
    fin;
    define-nueva-instruccion regresa como
    inicio
        gira-derecha;
        avanza;
        gira-derecha;
        avanza;
        avanza;
        gira-derecha;
        avanza;
        gira-izquierda;
    fin;
    define-nueva-instruccion agarra-b(a) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            agarra-b(a);
            repetir a veces
            deja-zumbador;
        fin
        sino inicio
            regresa;
        fin;
     fin;
     define-nueva-instruccion agarra-a(a) como
     inicio
         si junto-a-zumbador entonces
         inicio
              coge-zumbador;
              agarra-a(sucede(a));
         fin
         sino inicio
             avanza;
             agarra-b(a);
         fin;
     fin;
    inicia-ejecucion
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        gira-derecha;
        agarra-a(0);
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        media-vuelta;
        segundo(0);
        apagate;
    termina-ejecucion
finalizar-programa
