iniciar-programa
define-nueva-instruccion g(n) como
inicio
  repetir n veces
  inicio
    gira-izquierda;
  fin;
fin;
define-nueva-instruccion s como
inicio
  si junto-a-zumbador entonces
  inicio
    coge-zumbador;
    s;
    deja-zumbador;
  fin
  sino
  inicio
    mientras frente-libre hacer
    inicio
      avanza;
    fin;
    g(2);
  fin;
fin;
define-nueva-instruccion c(n) como
inicio
  si junto-a-zumbador entonces
  inicio
    coge-zumbador;
    c(sucede(n));
  fin
  sino
  inicio
    repetir 3 veces
      avanza;
    g(1);
    repetir 11 veces
      avanza;
    g(2);
    repetir 11 veces
    inicio
    si junto-a-zumbador entonces
    inicio
      mientras junto-a-zumbador hacer
      inicio
        g(3);
        avanza;
        mientras junto-a-zumbador hacer
        inicio
          coge-zumbador;
        fin;
        g(2);
        avanza;
        g(2);
        repetir n veces
        inicio
          si junto-a-zumbador entonces
          inicio
            coge-zumbador;
            avanza;
            deja-zumbador;
            g(2);
            avanza;
            g(2);
          fin;
        fin;
        si junto-a-zumbador entonces
        inicio
          g(1);
          avanza;
          deja-zumbador;
          g(2);
          avanza;
          g(2);
        fin;
      fin;
      repetir precede(n) veces
      inicio
        avanza;
        si junto-a-zumbador entonces
        inicio
          coge-zumbador;
          g(2);
          avanza;
          deja-zumbador;
          g(2);
        fin
        sino
        inicio
          g(2);
          avanza;
          g(2);
        fin;
      fin;
      avanza;
      si junto-a-zumbador entonces
      inicio
        g(2);
        avanza;
        mientras junto-a-zumbador hacer
        inicio
          coge-zumbador;
        fin;
        g(3);
        avanza;
        deja-zumbador;
      fin
      sino
      inicio
        g(2);
        avanza;
        g(3);
        avanza;
      fin;
    fin
    sino
    inicio
      avanza;
    fin;
    fin;
  fin;
fin;
    inicia-ejecucion
      g(3);
      avanza;
      g(1);
      repetir 11 veces
      inicio
        repetir 2 veces
          avanza;
        g(2);
        s;
        avanza;
        g(2);
        s;
        g(3);
        avanza;
        g(1);
      fin;
      g(1);
      mientras frente-libre hacer
        avanza;
      g(3);
      repetir 3 veces
        avanza;
      g(2);
      c(0);
        apagate;
    termina-ejecucion
finalizar-programa
