iniciar-programa
    define-nueva-instruccion donde(x) como inicio
    si frente-libre y no-junto-a-zumbador entonces inicio
    avanza;
    donde(x);
    si frente-libre entonces avanza;
    fin sino inicio
    repetir 2 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    mientras frente-libre y derecha-bloqueada hacer avanza;
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    fin;
    fin;
    define-nueva-instruccion cuanto(x) como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    cuanto(sucede(x));
    fin sino inicio
    repetir 2 veces gira-izquierda;
    donde(x);
    repetir x veces deja-zumbador;
    repetir 2 veces gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    mientras frente-libre y izquierda-bloqueada hacer avanza;
    gira-izquierda;
    mientras  frente-libre hacer avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    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 apagate;
    si junto-a-zumbador entonces cuanto(0);
    pocision;
    fin;
    inicia-ejecucion
        mientras no-orientado-al-este hacer gira-izquierda;
        pocision;
        apagate;
    termina-ejecucion
finalizar-programa
