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