actions for fotograma 1
      // Este programa produce 1ero un número de longitud 1: 0.
      // Luego otro de long 1: 1. Y otro de long 2: 10.
      // Luego otro de 1: 2. Otro de 2: 11. Y uno de 3: 100.
      // Y así. Es como si produjera cada vez más listas,
      // que tienen números más largos que las anteriores,
      // pero sólo se guarda el último valor de cada una.
      // Los valores de la lista 1 tendrán longitud 1. Los de la 2, 2.
      // Y así. Cuando ya no es posible producir uno de una longitud,
      // no se producen más de esa.
      SolucionesHalladas = 0;
      MinLongitudDeLosN = 1;
      MaxLongitudDeLosN = 1;
      ValorDelUltimoNDeLaLista1 = -1;
      LongitudDelNaModificar = MinLongitudDeLosN;
      function ProcesoaRepetir () {
         NombreDelNaModificar = "ValorDelUltimoNDeLaLista"+LongitudDelNaModificar;
         // Obtener lo que sería el nuevo valor de la lista indicada por LongitudDelNaModificar:
         N = eval(NombreDelNaModificar)+1;
         // ¿El nuevo N ya fue producido por otra lista?
         // O: ¿Tiene N más longitud que los Ns de su propia lista?
         if (String(N).length>LongitudDelNaModificar) {
            // Sí, no producir más Ns de esa lista:
            MinLongitudDeLosN = MinLongitudDeLosN+1;
            // La función se reaplicará pero para producir un N de una longitud mayor:
            LongitudDelNaModificar = MinLongitudDeLosN;
            if (Fram == 3) {
               gotoAndPlay (2);
            }
         } else {
            // Guardar el valor en la lista correspondiente:
            set (NombreDelNaModificar, N);
            // Obtener característica usando N:
            CaracteristicaDeN = String(N).charat(N);
            trace (N+" resulta "+Caracteristica);
            // Si se obtiene una característica deseada, informar,
            // guardarla y incrementar las soluciones halladas.
            if (CaracteristicaDeN == 0) {
               if (Solfor0 == undefined) {
                  Solfor0 = N;
                  trace ("para que la característica sea 0 usar N: "+N);
                  SolucionesHalladas = SolucionesHalladas+1;
               }
            } else if (CaracteristicaDeN == -9) {
               if (Solfor9 == undefined) {
                  Solfor9 = N;
                  trace ("para que la característica sea -9 usar N: "+N);
                  SolucionesHalladas = SolucionesHalladas+1;
               }
            } else if (CaracteristicaDeN == 4.5) {
               if (Solfor4 == undefined) {
                  Solfor4 = N;
                  trace ("para que la característica sea 4.5 usar N: "+N);
                  SolucionesHalladas = SolucionesHalladas+1;
               }
            } else if (CaracteristicaDeN == -7.2) {
               if (Solfor7 == undefined) {
                  Solfor7 = N;
                  trace ("para que la característica sea -7.2 usar N: "+N);
                  SolucionesHalladas = SolucionesHalladas+1;
               }
            }
            gotoAndPlay (4);
         }
      }
   actions for fotograma 2
      Fram = 2;
      ProcesoaRepetir();
   actions for fotograma 3
      Fram = 3;
      ProcesoaRepetir();
   actions for fotograma 4
      // ¿El último valor producido es de la lista de los más largos?
      if (LongitudDelNaModificar<MaxLongitudDeLosN) {
         // No, producir uno de una lista de más largos:
         LongitudDelNaModificar = LongitudDelNaModificar+1;
      } else {
         // Sí, se creará un valor para una nueva lista, de valores más largos:
         // La siguiente ecuación no funciona cuando MaxLongitudDeLosN es 1, por eso hay un if y else:
         if (MaxLongitudDeLosN>1) {
            set ("ValorDelUltimoNDeLaLista"+(MaxLongitudDeLosN+1), eval("ValorDelUltimoNDeLaLista"+MaxLongitudDeLosN)*10-1);
         } else {
            set ("ValorDelUltimoNDeLaLista"+(MaxLongitudDeLosN+1), 9);
         }
         MaxLongitudDeLosN = MaxLongitudDeLosN+1;
         // Producir un valor de la mínima longitud actual:
         LongitudDelNaModificar = MinLongitudDeLosN;
      }
      gotoAndPlay (2);
 

N = -1
do
  N++
  mostrar N
while N < 100

Frame 1:
N = -1
Frame 2:
N++
mostrar N
Frame 3:
Si N<100
  goto 2

Frame 1:
N = -1
Frame 2:
N++
mostrar N
Frame 3:
N++
mostrar N
Si N<100
  goto 2

   actions for fotograma 1
      N = -1;
      function Variar () {
         N = N+1;
         trace (N);
         if (N == 100) {
            stop();
         } else if (Fram == 3) {
            gotoAndPlay (2);
         }
      }
   actions for fotograma 2
      Fram = 2;
      Variar();
   actions for fotograma 3
      Fram = 3;
      Variar();

   actions for fotograma 1
      Soluciones = 0;
      N = -1;
      function Variar () {
         N = N+1;
         C = String(N).charat(N);
         trace (N+": "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
               trace ("para que C sea 0 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
               trace ("para que C sea -9 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
               trace ("para que C sea 4.5 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
               trace ("para que C sea -7.2 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         }
         if (Soluciones<4) {
            if (Fram == 3) {
               gotoAndPlay (2);
            }
         } else {
            trace ("para que C sea 0 usar N: "+Solfor0);
            trace ("para que C sea -9 usar N: "+Solfor9);
            trace ("para que C sea 4.5 usar N: "+Solfor4);
            trace ("para que C sea -7.2 usar N: "+Solfor7);
            stop ();
         }
      }
   actions for fotograma 2
      Fram = 2;
      Variar();
   actions for fotograma 3
      Fram = 3;
      Variar();

   actions for fotograma 1
      Soluciones = 0;
      MinLongitud = 1;
      MaxLongitud = 1;
      N1 = -1;
   actions for fotograma 2
      Longitud = MinLongitud;
   actions for fotograma 3
      Nombre = "N"+Longitud;
      N = eval(Nombre)+1;
      if (String(N).length>Longitud) {
         // El valor ya fue producido.
         MinLongitud = MinLongitud+1;
         gotoAndPlay (2);
      } else {
         // Guardar el valor en la lista correspondiente.
         set (Nombre, N);
         C = String(N).charat(N);
         trace (N+" resulta "+C);
         if (C == 0) {
            if (Solfor0 == undefined) {
               Solfor0 = N;
               trace ("para que C sea 0 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == -9) {
            if (Solfor9 == undefined) {
               Solfor9 = N;
               trace ("para que C sea -9 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == 4.5) {
            if (Solfor4 == undefined) {
               Solfor4 = N;
               trace ("para que C sea 4.5 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         } else if (C == -7.2) {
            if (Solfor7 == undefined) {
               Solfor7 = N;
               trace ("para que C sea -7.2 usar N: "+N);
               Soluciones = Soluciones+1;
            }
         }
      }
   actions for fotograma 4
      // ¿El último valor producido es de la lista de los más largos?
      if (Longitud<MaxLongitud) {
         // No, producir uno de una lista de más largos:
         Longitud = Longitud+1;
         gotoAndPlay (3);
      } else {
         // Sí, se creará un valor para una nueva lista, de valores más largos.
         // La siguiente ecuación no funciona cuando MaxLongitud es 1, por eso hay un if y else.
         if (MaxLongitud>1) {
            set ("N"+(MaxLongitud+1), eval("N"+MaxLongitud)*10-1);
         } else {
            set ("N"+(MaxLongitud+1), 9);
         }
         MaxLongitud = MaxLongitud+1;
         gotoAndPlay (2);
      }