iniciar-programa
    define-nueva-instruccion gira(z) como inicio repetir z veces gira-izquierda fin;
    define-nueva-instruccion encuentra(x) como inicio
         mientras izquierda-bloqueada o derecha-bloqueada hacer inicio
             repetir 2 veces inicio
                 si frente-libre entonces inicio
                     avanza;
                 fin sino inicio
                     si izquierda-libre entonces inicio
                         gira(1);
                         mientras derecha-bloqueada y frente-libre hacer avanza;
                         gira(3);
                         si frente-libre entonces inicio
                            avanza;
                            gira(3);
                            mientras frente-libre hacer avanza;
                            gira(1);
                         fin sino inicio
                            gira(3);
                            mientras frente-libre hacer avanza;
                            gira(3);
                            repetir x veces inicio
                                si frente-libre entonces inicio
                                    avanza;
                                fin sino inicio
                                    gira(3);
                                    mientras izquierda-bloqueada hacer avanza;
                                    gira(1);
                                    si frente-libre entonces avanza;
                                    gira(1);
                                    mientras frente-libre hacer avanza;
                                    gira(3);
                                fin;
                              fin;
                              apagate;
                         fin;
                     fin;

                 fin;
                 si izquierda-bloqueada y derecha-bloqueada y frente-bloqueado entonces inicio
                     gira(2);
                     repetir x veces inicio
                            si frente-libre entonces inicio
                                avanza;
                            fin sino inicio
                                gira(3);
                                mientras izquierda-bloqueada hacer avanza;
                                gira(1);
                                si frente-libre entonces avanza;
                                gira(1);
                                mientras frente-libre hacer avanza;
                                gira(3);
                           fin;
                      fin;
                       si frente-libre entonces inicio
                           avanza;
                       fin sino inicio
                           gira(3);
                           mientras izquierda-bloqueada hacer avanza;
                           gira(1);
                           si frente-libre entonces avanza;
                           gira(1);
                           mientras frente-libre hacer avanza;
                       fin;
                       apagate;
                 fin;
             fin;
             encuentra(sucede(x));
         fin;
    fin;
    inicia-ejecucion
        mientras no-orientado-al-este hacer gira-izquierda;
        si izquierda-bloqueada y derecha-bloqueada y frente-bloqueado entonces apagate;
        mientras orientado-al-este hacer inicio
            encuentra(0);
        fin;
        apagate;
    termina-ejecucion
finalizar-programa
