iniciar-programa
    define-prototipo-instruccion uno(t);
    define-nueva-instruccion soldados(t) como
    inicio
        si no-orientado-al-este entonces
        inicio
            si frente-libre entonces
            inicio
                avanza;
                si no-junto-a-zumbador entonces
                inicio
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 3 veces gira-izquierda;
                    si orientado-al-este entonces
                    inicio
                        si frente-libre entonces
                        inicio
                            avanza;
                            si no-junto-a-zumbador entonces
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(sucede(sucede(t)));
                            fin
                            sino
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(sucede(t));
                            fin;
                        fin
                        sino
                        inicio
                            soldados(sucede(t));
                        fin;
                    fin
                    sino
                    inicio
                    soldados(sucede(t));
                    fin;
                fin
                sino
                inicio
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 3 veces gira-izquierda;
                    si orientado-al-este entonces
                    inicio
                        si frente-libre entonces
                        inicio
                            avanza;
                            si no-junto-a-zumbador entonces
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(sucede(t));
                            fin
                            sino
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(t);
                            fin;
                        fin
                        sino
                        inicio
                            soldados(t);
                        fin;
                    fin
                    sino
                    inicio
                    soldados(t);
                    fin;
                fin;
            fin
            sino
            inicio

                gira-izquierda;
                si orientado-al-este entonces
                    inicio
                        si frente-libre entonces
                        inicio
                            avanza;
                            si no-junto-a-zumbador entonces
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(sucede(t));
                            fin
                            sino
                            inicio
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 2 veces gira-izquierda;
                                soldados(t);
                            fin;
                        fin
                        sino
                        inicio
                            soldados(t);
                        fin;
                    fin
                    sino
                    inicio
                    soldados(t);
                    fin;

            fin;
        fin
        sino
        inicio
            gira-izquierda;
            si frente-libre entonces
            inicio
                avanza;
                uno(t);
            fin
            sino
            inicio
                repetir 2 veces gira-izquierda;
                mientras frente-libre hacer avanza;
                gira-izquierda;
                si frente-bloqueado entonces
                inicio
                    repetir 2 veces gira-izquierda;
                    mientras frente-libre hacer avanza;
                    mientras junto-a-zumbador hacer coge-zumbador;
                    repetir t veces deja-zumbador;
                fin
                sino
                inicio
                    avanza;
                    gira-izquierda;
                    uno(t);
                fin;
            fin;

        fin;
    fin;
    define-nueva-instruccion uno(t) como
    inicio
        si no-junto-a-zumbador entonces
        inicio
            si frente-libre entonces
            inicio
                avanza;
                uno(t);
            fin
            sino
            inicio
                repetir 2 veces gira-izquierda;
                mientras frente-libre hacer avanza;
                gira-izquierda;
                si frente-bloqueado entonces
                inicio
                    repetir 2 veces gira-izquierda;
                    mientras frente-libre hacer avanza;
                    mientras junto-a-zumbador hacer coge-zumbador;
                    repetir t veces deja-zumbador;
                fin
                sino
                inicio
                    avanza;
                    gira-izquierda;
                    uno(t);
                fin;
            fin;
        fin
        sino
        inicio

            soldados(t);
        fin;
    fin;
    inicia-ejecucion
        mientras no-orientado-al-oeste hacer gira-izquierda;
        mientras frente-libre hacer avanza;
        gira-izquierda;
        mientras frente-libre hacer avanza;
        repetir 2 veces gira-izquierda;
        uno(0);
        apagate;
    termina-ejecucion
finalizar-programa
