iniciar-programa
    define-nueva-instruccion identacion(x) como inicio
         si no-junto-a-zumbador entonces inicio
             avanza;
             identacion(sucede(x));
         fin sino inicio
             coge-zumbador;
             repetir 2 veces gira-izquierda;
             repetir x veces avanza;
             repetir x veces deja-zumbador;
             deja-zumbador;
             gira-izquierda;
             si frente-libre entonces avanza;
             si junto-a-zumbador entonces apagate;
             gira-izquierda;
             identacion(0);
         fin;
     fin;
    define-nueva-instruccion pocision como inicio
        si frente-libre entonces avanza;
        mientras no-orientado-al-este hacer gira-izquierda;
        identacion(0);
    fin;
    inicia-ejecucion
        mientras no-orientado-al-sur hacer gira-izquierda;
        pocision;
        apagate;
    termina-ejecucion
finalizar-programa
