iniciar-programa
    define-prototipo-instruccion subir2;
    define-prototipo-instruccion final;
    define-prototipo-instruccion cortar;
    define-nueva-instruccion g(n) como
    inicio
        repetir n veces
        gira-izquierda;
    fin;
    define-nueva-instruccion final como
    inicio
          g(3);
          mientras frente-libre hacer
          avanza;
          si junto-a-zumbador entonces
              inicio
                g(3);
                avanza;
                g(1);
                avanza;
                g(1);
                avanza;
                g(3);
                mientras frente-libre hacer
                avanza;
              fin;
          mientras algun-zumbador-en-la-mochila hacer
          deja-zumbador;
          apagate;
    fin;
    define-nueva-instruccion regresar2 como
    inicio
        g(2);
        mientras frente-libre hacer
        avanza;
        subir2;
    fin;
    define-nueva-instruccion buscar2 como
    inicio
        g(1);
        avanza;
        si no-junto-a-zumbador entonces
            inicio
                g(1);
                avanza;
                g(3);
            fin;
    fin;
    define-nueva-instruccion podar2 como
    inicio
        mientras no-junto-a-zumbador y frente-libre hacer
        avanza;
        si frente-bloqueado entonces
        final
        sino
        inicio
        g(1);
        mientras junto-a-zumbador hacer
        cortar;
        buscar2;
        mientras junto-a-zumbador hacer
        cortar;
        regresar2;
        fin;
    fin;
    define-nueva-instruccion subir2 como
    inicio
        mientras no-orientado-al-oeste hacer
        g(1);
        mientras no-junto-a-zumbador y frente-libre hacer
        avanza;
        si frente-bloqueado entonces
            inicio
                g(3);
                avanza;
                g(1);
                avanza;
                g(1);
                avanza;
                g(3);
                mientras no-junto-a-zumbador hacer
                avanza;
            fin;
        g(3);
        mientras junto-a-zumbador hacer
        avanza;
        g(3);
        avanza;
        g(3);
        podar2;
    fin;
    define-nueva-instruccion cambio como
    inicio
        g(1);
        mientras frente-libre hacer avanza;
        g(2);
        subir2;
    fin;
    define-nueva-instruccion subir como
    inicio
        mientras no-orientado-al-este hacer
        g(1);
        mientras no-junto-a-zumbador hacer
        avanza;
        g(1);
        mientras junto-a-zumbador hacer
        avanza;
        g(1);
        avanza;
        g(1);
    fin;
    define-nueva-instruccion buscar como
    inicio
        g(3);
        avanza;
        si no-junto-a-zumbador entonces
            inicio
                g(3);
                avanza;
                g(1);
            fin;
    fin;
    define-nueva-instruccion regresar como
    inicio
        g(2);
        mientras frente-libre hacer
        avanza;
        subir;
    fin;
    define-nueva-instruccion cortar como
    inicio
        coge-zumbador;
        si frente-libre entonces
        avanza;
    fin;
    define-nueva-instruccion podar como
    inicio
        mientras no-junto-a-zumbador y frente-libre hacer
        avanza;
        si frente-bloqueado entonces
        cambio
        sino
        inicio
        g(3);
        mientras junto-a-zumbador hacer
        cortar;
        buscar;
        mientras junto-a-zumbador hacer
        cortar;
        regresar;
        fin;
    fin;
    inicia-ejecucion
    subir;
    mientras frente-libre hacer
    podar;

        apagate;
    termina-ejecucion
finalizar-programa
