iniciar-programa
define-nueva-instruccion media-vuelta como
inicio
 repetir 2 veces
  gira-izquierda;
fin;
define-nueva-instruccion gira-derecha como
inicio
 repetir 3 veces
  gira-izquierda;
fin;
define-nueva-instruccion cuenta1(x) como
inicio
 si frente-libre entonces
  inicio
   avanza;
   cuenta1(sucede(x));
  fin
 sino
  inicio
   media-vuelta;
   mientras frente-libre hacer
    avanza;
   repetir 2 veces
     repetir x veces
      deja-zumbador;
    media-vuelta;
    avanza;
    repetir 2 veces
     repetir x veces
      deja-zumbador;
     media-vuelta;
     avanza;
 fin;
fin;
define-nueva-instruccion cuenta2(x) como
inicio
 si frente-libre entonces
  inicio
   avanza;
   cuenta2(sucede(x));
  fin
  sino
  inicio
   media-vuelta;
   mientras frente-libre hacer
    avanza;
   repetir 3 veces
    repetir x veces
     deja-zumbador;
   media-vuelta;
   avanza;
   gira-derecha;
   repetir 3 veces
    repetir x veces
     deja-zumbador;
  fin;
fin;
define-nueva-instruccion come como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   come;
   deja-zumbador;
  fin
  sino
  inicio
   mientras frente-libre hacer
    avanza;
   fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-este hacer
     gira-izquierda;
    repetir 4 veces
     avanza;
    repetir 250 veces
     coge-zumbador;
    media-vuelta;
    mientras frente-libre hacer
     avanza;
    gira-derecha;
    avanza;
    avanza;
    gira-derecha;
    repetir 3 veces
     avanza;
    cuenta1(1);
    gira-derecha;
    repetir 3 veces
     avanza;
    gira-derecha;
    repetir 3 veces
     avanza;
    cuenta2(1);
    mientras junto-a-zumbador hacer
    inicio
     coge-zumbador;
     repetir 3 veces
      avanza;
     media-vuelta;
    fin;
    si orientado-al-sur entonces
     inicio
      repetir 3 veces
       avanza;
      gira-derecha;
      avanza;
      gira-izquierda;
      come;
     fin
    sino
     inicio
      repetir 3 veces
       avanza;
      gira-izquierda;
      avanza;
      gira-izquierda;
      come;
     fin;

        apagate;
    termina-ejecucion
finalizar-programa
