iniciar-programa

    define-nueva-instruccion Norte como inicio
        mientras no-orientado-al-norte hacer gira-izquierda;
    fin;

    define-nueva-instruccion Este como inicio
        mientras no-orientado-al-este hacer gira-izquierda;
    fin;

    define-nueva-instruccion Sur como inicio
        mientras no-orientado-al-sur hacer gira-izquierda;
    fin;

    define-nueva-instruccion Oeste como inicio
        mientras no-orientado-al-oeste hacer gira-izquierda;
    fin;

    define-nueva-instruccion Ir11 como inicio
        Oeste;
        mientras frente-libre hacer avanza;
        Sur;
        mientras frente-libre hacer avanza;
        Norte;
    fin;

    define-nueva-instruccion Ir12 como inicio
        Oeste;
        mientras frente-libre hacer avanza;
        Sur;
        mientras frente-libre hacer avanza;
        Este;
        avanza;
    fin;

    define-nueva-instruccion marcar(n) como inicio
       Norte;
       mientras frente-libre hacer inicio
           repetir n veces inicio
               si frente-libre entonces inicio
                   avanza;

               fin;
           fin;
           deja-zumbador;
       fin;
    fin;

    define-nueva-instruccion marcar2(n) como inicio
        Ir11;
        mientras no-junto-a-zumbador hacer inicio
            repetir n veces inicio
                si frente-libre entonces inicio
                    avanza;

                fin;
            fin;
        fin;
        Sur;
    fin;

    define-nueva-instruccion toma2(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            toma2(sucede(n));
            fin sino inicio
            marcar2(n);
        fin;
    fin;

    define-nueva-instruccion Tomar(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            tomar(sucede(n));
            fin sino inicio
            marcar(n)
        fin;
    fin;

    define-nueva-instruccion Regresa como inicio
        si frente-libre entonces inicio
            avanza;
            Regresa;
            deja-zumbador;
        fin sino inicio
            Este;
            avanza;
            avanza;
        fin;
    fin;

    inicia-ejecucion
        Ir11;
        Tomar(0);
          Ir12;
        toma2(0);

        Regresa;
        apagate;
    termina-ejecucion
finalizar-programa
