iniciar-programa
define-nueva-instruccion gira(n) como inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion karel(n) como inicio
si no-junto-a-zumbador y frente-libre y orientado-al-norte entonces inicio
avanza;
karel(0);
fin;
si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
karel(sucede(n));
fin
sino inicio
si frente-bloqueado y derecha-libre y orientado-al-norte entonces inicio
gira(3);
avanza;
gira(3);
mientras frente-libre hacer inicio
avanza;
fin;
gira(2);
karel(0);
fin;
si si-es-cero(precede(n)) entonces inicio
    mientras no-orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(2);
    mientras junto-a-zumbador hacer inicio
    avanza;
    fin;
    deja-zumbador;
    gira(1);
    fin;
    si si-es-cero(precede(precede(n))) entonces inicio
    mientras no-orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    avanza;
    gira(1);
    mientras junto-a-zumbador hacer inicio
    avanza;
    fin;
    deja-zumbador;
    deja-zumbador;
    gira(1);
    fin;
    si si-es-cero(precede(precede(precede(n)))) entonces inicio
      mientras no-orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(2);
    mientras junto-a-zumbador hacer inicio
    avanza;
    fin;
    deja-zumbador;
     mientras no-orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    avanza;
    gira(1);
    mientras junto-a-zumbador hacer inicio
    avanza;
    fin;
    deja-zumbador;
    deja-zumbador;
    gira(1);
    fin;

    fin;
    fin;


    inicia-ejecucion
    mientras no-orientado-al-oeste hacer inicio
    gira-izquierda;
    fin;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(1);
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira(2);
    karel(0);

        apagate;
    termina-ejecucion
finalizar-programa
