iniciar-programa
define-nueva-instruccion gira-derecha como
inicio
  repetir 3 veces
    gira-izquierda;
fin;
define-nueva-instruccion paso-tortuga como
inicio
  si junto-a-zumbador entonces
  inicio
    coge-zumbador;
    paso-tortuga;
    deja-zumbador;
  fin
  sino
  inicio
    repetir 2 veces
      avanza;
    gira-derecha;
    mientras no-junto-a-zumbador hacer
      avanza;
    coge-zumbador;
  fin;
fin;
define-nueva-instruccion tortuga(m) como
inicio
  si junto-a-zumbador entonces
  inicio
    coge-zumbador;
    tortuga(sucede(m));
    deja-zumbador;
  fin
  sino
  inicio
    repetir m veces
      avanza;
  fin;
fin;
define-nueva-instruccion conejo(m) como
inicio
  si junto-a-zumbador entonces
  inicio
    coge-zumbador;
    conejo(sucede(m));
    deja-zumbador;
  fin
  sino
  inicio
    repetir m veces
      avanza;
  fin;
fin;
define-nueva-instruccion carrera(n) como
inicio
  si orientado-al-este y frente-libre entonces
  inicio
    tortuga(0);
    gira-derecha;
    avanza;
    si no junto-a-zumbador entonces
    inicio

    gira-derecha;
    mientras no-junto-a-zumbador hacer
      avanza;
    repetir 2 veces
      gira-izquierda;
    conejo(0);
    gira-izquierda;
      avanza;
    si no-junto-a-zumbador entonces
    inicio
    gira-izquierda;
    mientras frente-libre hacer
      avanza;
    repetir 2 veces
      gira-izquierda;
    mientras no-junto-a-zumbador hacer
      avanza;
      carrera(sucede(n));
    fin
    sino
      inicio
        repetir 2 veces
          gira-izquierda;
        mientras frente-libre hacer
          avanza;
        gira-derecha;
        mientras frente-libre hacer
          avanza;
       carrera(n);
      fin;
    fin
    sino
    inicio
      gira-derecha;
      mientras frente-libre hacer
        avanza;
      gira-derecha;
      mientras frente-libre hacer
        avanza;
      carrera(n);
    fin;
  fin
  sino
  inicio
    repetir n veces
      deja-zumbador;
  fin;
fin;
    inicia-ejecucion
    avanza;
    paso-tortuga;
    carrera(0);
    deja-zumbador;
        apagate;
    termina-ejecucion
finalizar-programa
