iniciar-programa

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

            define-nueva-instruccion move(n) como inicio
                repetir n veces inicio
                    avanza;
                fin;
            fin;

            define-nueva-instruccion gira-derecha como inicio
               gira(3);
            fin;

              define-nueva-instruccion media-vuelta como inicio
                 gira-izquierda;
                 gira-izquierda;
             fin;

            define-nueva-instruccion coge2(n) como inicio
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    coge2(n);
                    repetir n veces inicio
                        deja-zumbador;
                    fin;
                fin sino inicio
                    gira-derecha;
                    avanza;
                    gira-derecha;
                    avanza;
                    avanza;
                    gira-derecha;
                    mientras frente-libre hacer inicio
                        avanza;
                   fin;
               fin;
            fin;

            define-nueva-instruccion posicion1 como inicio
                 avanza;
                gira-izquierda;
                avanza;
                avanza;
                gira-izquierda;
                avanza;
                gira-derecha;
             fin;

             define-nueva-instruccion posicion2 como inicio
                     avanza;
                     avanza;
                    gira-izquierda;
                    avanza;
                    gira-izquierda;
                    gira-izquierda;
              fin;

            define-nueva-instruccion multiplica(n) como inicio

               si junto-a-zumbador entonces inicio
                   coge-zumbador;
                   multiplica(sucede(n));
               fin sino inicio
                   avanza;
                   coge2(n);
              fin;
            fin;



            define-nueva-instruccion mover-residuo como inicio
               coge-zumbador;
               gira(2);
               avanza;
               deja-zumbador;
               gira(2);
               avanza;

            fin;

            define-nueva-instruccion cociente como inicio
                gira(2);
                move(1);
              mientras junto-a-zumbador hacer inicio
                  coge-zumbador;
              fin;
                  gira-izquierda;
                  avanza;
                  gira-izquierda;
                  move(2);
                  gira(1);
                  avanza;
                  deja-zumbador;
                  avanza;
                  gira-izquierda;
                  move(2);
                  gira(1);
                  move(1);
                   gira(1);
                   avanza;
            fin;



          define-nueva-instruccion divide(m) como inicio
                mientras junto-a-zumbador hacer inicio
                   repetir m veces inicio
                    si junto-a-zumbador entonces inicio
                        mover-residuo;
                    fin sino inicio
                        apagate;
                    fin;
                fin;
                   cociente;

                   fin;
           fin;

           define-nueva-instruccion primero(n) como inicio
               si junto-a-zumbador entonces inicio
                   coge-zumbador;
                   primero(sucede(n));
               fin sino inicio
                    avanza;
                    gira(1);
                    avanza;
                    gira(1);
                    avanza;
                   si junto-a-zumbador entonces inicio
                       divide(n);
                   fin;
               fin;
             fin;



           define-nueva-instruccion regresa como inicio
               gira(3);
               avanza;
               gira(3);
               move(3);
               gira(3);
               avanza;
           fin;



    inicia-ejecucion
            posicion1;
        multiplica(0);
        media-vuelta;
        posicion2;
        primero(0);

        apagate;
    termina-ejecucion
finalizar-programa
