diff --git a/factor.nj b/factor.nj
new file mode 100644
index 0000000..ac408a3
--- /dev/null
+++ b/factor.nj
@@ -0,0 +1,794 @@
+//
+// factor.nj -- factorize the numbers 10^n+1, n = 1..30
+//
+
+//--------------------------------------------------------------
+
+// handle list of factors
+
+type List = record {
+  Integer value;
+  List next;
+};
+
+List addToList(Integer value, List next) {
+  local List newList;
+  newList = new(List);
+  newList.value = value;
+  newList.next = next;
+  return newList;
+}
+
+List sortList(List list) {
+  local List result;
+  local List element;
+  local List p;
+  result = nil;
+  while (list != nil) {
+    element = list;
+    list = list.next;
+    if (result == nil || element.value < result.value) {
+      element.next = result;
+      result = element;
+    } else {
+      p = result;
+      while (p.next != nil && element.value >= p.next.value) {
+        p = p.next;
+      }
+      element.next = p.next;
+      p.next = element;
+    }
+  }
+  return result;
+}
+
+void showList(List list) {
+  if (list == nil) {
+    writeString("1");
+  } else {
+    while (true) {
+      writeInteger(list.value);
+      list = list.next;
+      if (list == nil) {
+        break;
+      }
+      writeString(" * ");
+    }
+  }
+  writeString("\n");
+}
+
+Integer evalList(List list) {
+  local Integer result;
+  result = 1;
+  while (list != nil) {
+    result = result * list.value;
+    list = list.next;
+  }
+  return result;
+}
+
+List fuseLists(List list1, List list2) {
+  local List element;
+  while (list1 != nil) {
+    element = list1;
+    list1 = list1.next;
+    element.next = list2;
+    list2 = element;
+  }
+  return list2;
+}
+
+//--------------------------------------------------------------
+
+// compute 10^n+1
+
+Integer computeTarget(Integer n) {
+  local Integer x;
+  local Integer i;
+  x = 1;
+  i = 0;
+  while (i < n) {
+    x = x * 10;
+    i = i + 1;
+  }
+  x = x + 1;
+  return x;
+}
+
+void testComputeTarget() {
+  writeString("computeTarget()\n");
+  writeString("---------------\n");
+  writeString("target(1) = ");
+  writeInteger(computeTarget(1));
+  writeString("\n");
+  writeString("target(2) = ");
+  writeInteger(computeTarget(2));
+  writeString("\n");
+  writeString("target(3) = ");
+  writeInteger(computeTarget(3));
+  writeString("\n");
+  writeString("target(4) = ");
+  writeInteger(computeTarget(4));
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// build a table of small primes
+
+global Integer smallPrimesLimit;
+
+global Integer[] primes;
+global Integer numPrimes;
+
+void showSmallPrimes() {
+  local Integer i;
+  local Integer k;
+  i = 0;
+  k = 0;
+  while (i < numPrimes) {
+    writeInteger(primes[i]);
+    writeString("  ");
+    k = k + 1;
+    if (k == 8) {
+      k = 0;
+      writeString("\n");
+    }
+    i = i + 1;
+  }
+  if (k != 0) {
+    writeString("\n");
+  }
+}
+
+void enterSmallPrime(Integer p) {
+  local Integer n;
+  local Integer[] a;
+  local Integer i;
+  if (sizeof(primes) == numPrimes) {
+    n = 2 * numPrimes;
+    a = new(Integer[n]);
+    i = 0;
+    while (i < numPrimes) {
+      a[i] = primes[i];
+      i = i + 1;
+    }
+    primes = a;
+  }
+  primes[numPrimes] = p;
+  numPrimes = numPrimes + 1;
+}
+
+Boolean isPrime(Integer n) {
+  local Integer t;
+  t = 3;
+  while (t * t <= n) {
+    if (n % t == 0) {
+      return false;
+    }
+    t = t + 2;
+  }
+  return true;
+}
+
+void calcSmallPrimes(Integer limit) {
+  local Integer i;
+  smallPrimesLimit = limit;
+  primes = new(Integer[256]);
+  numPrimes = 0;
+  enterSmallPrime(2);
+  enterSmallPrime(3);
+  i = 5;
+  while (true) {
+    if (i > smallPrimesLimit) {
+      break;
+    }
+    if (isPrime(i)) {
+      enterSmallPrime(i);
+    }
+    i = i + 2;
+    if (i > smallPrimesLimit) {
+      break;
+    }
+    if (isPrime(i)) {
+      enterSmallPrime(i);
+    }
+    i = i + 4;
+  }
+}
+
+void testCalcSmallPrimes() {
+  writeString("calcSmallPrimes()\n");
+  writeString("-----------------\n");
+  writeString("primes less than or equal to 100:\n");
+  calcSmallPrimes(100);
+  showSmallPrimes();
+  writeString("number of primes less than or equal to 100: ");
+  writeInteger(numPrimes);
+  writeString("\n");
+  calcSmallPrimes(1000);
+  writeString("number of primes less than or equal to 1000: ");
+  writeInteger(numPrimes);
+  writeString("\n");
+  calcSmallPrimes(10000);
+  writeString("number of primes less than or equal to 10000: ");
+  writeInteger(numPrimes);
+  writeString("\n");
+  calcSmallPrimes(100000);
+  writeString("number of primes less than or equal to 100000: ");
+  writeInteger(numPrimes);
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// try to find a small prime factor of a given number
+
+Integer smallPrimeFactor(Integer n) {
+  local Integer i;
+  i = 0;
+  while (i < numPrimes) {
+    if (n % primes[i] == 0) {
+      // prime factor found
+      return primes[i];
+    }
+    i = i + 1;
+  }
+  // no prime factor less than or equal to smallPrimesLimit found
+  return 0;
+}
+
+void testSmallPrimeFactor() {
+  calcSmallPrimes(10000);
+  writeString("smallPrimeFactor()\n");
+  writeString("------------------\n");
+  writeString("small prime factor of 2: ");
+  writeInteger(smallPrimeFactor(2));
+  writeString("\n");
+  writeString("small prime factor of 222: ");
+  writeInteger(smallPrimeFactor(222));
+  writeString("\n");
+  writeString("small prime factor of 17*19*23: ");
+  writeInteger(smallPrimeFactor(17*19*23));
+  writeString("\n");
+  writeString("small prime factor of 7919: ");
+  writeInteger(smallPrimeFactor(7919));
+  writeString("\n");
+  writeString("small prime factor of 987654323: ");
+  writeInteger(smallPrimeFactor(987654323));
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// compute b^n mod m
+
+Integer powerMod(Integer b, Integer n, Integer m) {
+  local Integer a;
+  a = 1;
+  while (n != 0) {
+    if (n % 2 == 0) {
+      b = (b * b) % m;
+      n = n / 2;
+    } else {
+      a = (a * b) % m;
+      n = n - 1;
+    }
+  }
+  return a;
+}
+
+void testPowerMod() {
+  writeString("powerMod()\n");
+  writeString("----------\n");
+  writeString("2^16 mod 7: ");
+  writeInteger(powerMod(2, 16, 7));
+  writeString("\n");
+  writeString("3^10 mod 19: ");
+  writeInteger(powerMod(3, 10, 19));
+  writeString("\n");
+  writeString("123^987654323 mod 987654323: ");
+  writeInteger(powerMod(123, 987654323, 987654323));
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// compute greatest common divisor
+
+Integer GCD(Integer a, Integer b) {
+  local Integer r;
+  if (a < 0) {
+    a = -a;
+  }
+  if (b < 0) {
+    b = -b;
+  }
+  while (b != 0) {
+    r = a % b;
+    a = b;
+    b = r;
+  }
+  return a;
+}
+
+void testGCD() {
+  writeString("GCD()\n");
+  writeString("-----\n");
+  writeString("GCD(3*5*5*11*37, 2*2*5*37*53) = ");
+  writeInteger(GCD(3*5*5*11*37, 2*2*5*37*53));
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// Rabin-Miller test
+
+Boolean isComposite(Integer n) {
+  local Integer q;
+  local Integer t;
+  local Integer i;
+  local Integer a;
+  local Integer e;
+  local Integer b;
+  q = n - 1;
+  t = 0;
+  while (q % 2 == 0) {
+    q = q / 2;
+    t = t + 1;
+  }
+  i = 0;
+  while (i < 20) {
+    a = primes[i];
+    if (a >= n) {
+      break;
+    }
+    e = 0;
+    b = powerMod(a, q, n);
+    if (b != 1) {
+      while (b != 1 && b != n - 1 && e <= t - 2) {
+        b = (b * b) % n;
+        e = e + 1;
+      }
+      if (b != n - 1) {
+        return true;
+      }
+    }
+    i = i + 1;
+  }
+  return false;
+}
+
+void testIsComposite() {
+  local Integer n;
+  local Integer k;
+  writeString("isComposite()\n");
+  writeString("-------------\n");
+  writeString("odd numbers in [3..99] which are probably prime:\n");
+  n = 3;
+  k = 0;
+  while (n < 100) {
+    if (!isComposite(n)) {
+      writeInteger(n);
+      writeString("  ");
+      k = k + 1;
+      if (k == 8) {
+        k = 0;
+        writeString("\n");
+      }
+    }
+    n = n + 2;
+  }
+  if (k != 0) {
+    writeString("\n");
+  }
+  n = 1234567;
+  while (n < 1234607) {
+    writeInteger(n);
+    writeString(" is ");
+    if (isComposite(n)) {
+      writeString("definitely composite\n");
+    } else {
+      writeString("probably prime\n");
+    }
+    n = n + 2;
+  }
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+Boolean provePrime(Integer n) {
+  // not implemented yet
+  return false;
+}
+
+void testProvePrime() {
+  writeString("provePrime()\n");
+  writeString("------------\n");
+  writeString("<not implemented yet>\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+// Pollard's rho method
+
+Integer findFactor1(Integer n) {
+  local Integer y;
+  local Integer x;
+  local Integer x1;
+  local Integer k;
+  local Integer l;
+  local Integer p;
+  local Integer c;
+  local Integer g;
+  local Integer r;
+  y = 2;
+  x = 2;
+  x1 = 2;
+  k = 1;
+  l = 1;
+  p = 1;
+  c = 0;
+  while (true) {
+    x = (x * x + 1) % n;
+    p = (p * (x1 - x)) % n;
+    c = c + 1;
+    if (c == 20) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      y = x;
+      c = 0;
+    }
+    k = k - 1;
+    if (k == 0) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      x1 = x;
+      k = l;
+      l = 2 * l;
+      r = 0;
+      while (r < k) {
+        x = (x * x + 1) % n;
+        r = r + 1;
+      }
+      y = x;
+      c = 0;
+    }
+  }
+  do {
+    y = (y * y + 1) % n;
+    g = GCD(x1 - y, n);
+  } while (g == 1);
+  if (g < n) {
+    return g;
+  } else {
+    return 0;
+  }
+}
+
+Integer findFactor2(Integer n) {
+  local Integer y;
+  local Integer x;
+  local Integer x1;
+  local Integer k;
+  local Integer l;
+  local Integer p;
+  local Integer c;
+  local Integer g;
+  local Integer r;
+  y = 2;
+  x = 2;
+  x1 = 2;
+  k = 1;
+  l = 1;
+  p = 1;
+  c = 0;
+  while (true) {
+    x = (x * x - 1) % n;
+    p = (p * (x1 - x)) % n;
+    c = c + 1;
+    if (c == 20) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      y = x;
+      c = 0;
+    }
+    k = k - 1;
+    if (k == 0) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      x1 = x;
+      k = l;
+      l = 2 * l;
+      r = 0;
+      while (r < k) {
+        x = (x * x - 1) % n;
+        r = r + 1;
+      }
+      y = x;
+      c = 0;
+    }
+  }
+  do {
+    y = (y * y - 1) % n;
+    g = GCD(x1 - y, n);
+  } while (g == 1);
+  if (g < n) {
+    return g;
+  } else {
+    return 0;
+  }
+}
+
+Integer findFactor3(Integer n) {
+  local Integer y;
+  local Integer x;
+  local Integer x1;
+  local Integer k;
+  local Integer l;
+  local Integer p;
+  local Integer c;
+  local Integer g;
+  local Integer r;
+  y = 2;
+  x = 2;
+  x1 = 2;
+  k = 1;
+  l = 1;
+  p = 1;
+  c = 0;
+  while (true) {
+    x = (x * x + 3) % n;
+    p = (p * (x1 - x)) % n;
+    c = c + 1;
+    if (c == 20) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      y = x;
+      c = 0;
+    }
+    k = k - 1;
+    if (k == 0) {
+      g = GCD(p, n);
+      if (g > 1) {
+        break;
+      }
+      x1 = x;
+      k = l;
+      l = 2 * l;
+      r = 0;
+      while (r < k) {
+        x = (x * x + 3) % n;
+        r = r + 1;
+      }
+      y = x;
+      c = 0;
+    }
+  }
+  do {
+    y = (y * y + 3) % n;
+    g = GCD(x1 - y, n);
+  } while (g == 1);
+  if (g < n) {
+    return g;
+  } else {
+    return 0;
+  }
+}
+
+Integer findFactor(Integer n) {
+  local Integer r;
+  r = findFactor1(n);
+  if (r != 0) {
+    return r;
+  }
+  r = findFactor2(n);
+  if (r != 0) {
+    return r;
+  }
+  r = findFactor3(n);
+  return r;
+}
+
+void testFindFactor() {
+  writeString("findFactor()\n");
+  writeString("------------\n");
+  writeString("5*5*5 = ");
+  writeInteger(5*5*5);
+  writeString(" is a multiple of ");
+  writeInteger(findFactor(5*5*5));
+  writeString("\n");
+  writeString("4421*5743*7699 = ");
+  writeInteger(4421*5743*7699);
+  writeString(" is a multiple of ");
+  writeInteger(findFactor(4421*5743*7699));
+  writeString("\n");
+  writeInteger(9999000099990001);
+  writeString(" is a multiple of ");
+  writeInteger(findFactor(9999000099990001));
+  writeString("\n");
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+List factorize(Integer x, Boolean verbose) {
+  local List factors;
+  local Integer f;
+  local Integer f1;
+  local Integer f2;
+  local List moreFactors;
+  if (verbose) {
+    writeString("factorize(");
+    writeInteger(x);
+    writeString(")\n");
+  }
+  factors = nil;
+  while (x > 1) {
+    f = smallPrimeFactor(x);
+    if (f == 0) {
+      // no small prime factor found
+      if (x < smallPrimesLimit * smallPrimesLimit) {
+        // we know that x is prime
+        f = x;
+      } else {
+        // we don't know anything
+        break;
+      }
+    }
+    if (verbose) {
+      writeString("detected small prime factor ");
+      writeInteger(f);
+      writeString("\n");
+    }
+    factors = addToList(f, factors);
+    x = x / f;
+  }
+  if (x == 1) {
+    // x has been completely factorized
+    if (verbose) {
+      writeString("the number has been completely factorized\n");
+    }
+    return factors;
+  }
+  if (verbose) {
+    writeString("interim result:\n    the remaining factor ");
+    writeInteger(x);
+    writeString("\n    doesn't have any prime factors < ");
+    writeInteger(smallPrimesLimit);
+    writeString("\n    ");
+  }
+  if (isComposite(x)) {
+    // x is definitely composite
+    if (verbose) {
+      writeString("but is definitely composite\n");
+    }
+    f1 = findFactor(x);
+    if (f1 == 0) {
+      // cannot factorize x, give up
+      writeString("cannot factorize ");
+      writeInteger(x);
+      writeString(", giving up\n");
+      factors = addToList(x, factors);
+    } else {
+      // x = f1 * f2
+      f2 = x / f1;
+      if (verbose) {
+        writeString("this number can be split into ");
+        writeInteger(f1);
+        writeString(" and ");
+        writeInteger(f2);
+        writeString("\n");
+      }
+      moreFactors = factorize(f1, verbose);
+      factors = fuseLists(moreFactors, factors);
+      moreFactors = factorize(f2, verbose);
+      factors = fuseLists(moreFactors, factors);
+    }
+  } else {
+    // x is very probably prime
+    if (verbose) {
+      writeString("and is very probably prime\n");
+    }
+    if (provePrime(x)) {
+      if (verbose) {
+        writeString("the primality of ");
+        writeInteger(x);
+        writeString(" has been proven\n");
+      }
+    } else {
+      writeString("cannot prove the primality of ");
+      writeInteger(x);
+      writeString(", giving up\n");
+    }
+    factors = addToList(x, factors);
+  }
+  return factors;
+}
+
+void testFactorize(Boolean verbose) {
+  local List factors;
+  writeString("factorize()\n");
+  writeString("-----------\n");
+  calcSmallPrimes(7);
+  showSmallPrimes();
+  writeString("3*5*7*7*141*49 = \n");
+  factors = factorize(3*5*7*7*141*49, verbose);
+  showList(sortList(factors));
+  writeString("\n");
+}
+
+//--------------------------------------------------------------
+
+void showBar() {
+  writeString("---------------------------------");
+  writeString("-------------------------------\n");
+}
+
+void run(Boolean verbose) {
+  local Integer i;
+  local Integer x;
+  local List factors;
+  local Integer y;
+  calcSmallPrimes(10000);
+  showBar();
+  i = 1;
+  while (i <= 30) {
+    writeString("10^");
+    writeInteger(i);
+    writeString("+1 = ");
+    x = computeTarget(i);
+    writeInteger(x);
+    writeString(" = \n");
+    factors = factorize(x, verbose);
+    factors = sortList(factors);
+    showList(factors);
+    writeString("check: product = ");
+    y = evalList(factors);
+    writeInteger(y);
+    writeString("\n");
+    showBar();
+    i = i+ 1;
+  }
+}
+
+//--------------------------------------------------------------
+
+void tests(Boolean verbose) {
+  writeString("\nTests\n");
+  writeString("=====\n\n");
+  testComputeTarget();
+  testCalcSmallPrimes();
+  testSmallPrimeFactor();
+  testPowerMod();
+  testGCD();
+  testIsComposite();
+  testProvePrime();
+  testFindFactor();
+  testFactorize(verbose);
+}
+
+//--------------------------------------------------------------
+
+void main() {
+  //tests(true);
+  run(true);
+}
diff --git a/njc/njc8l b/njc/njc8l
new file mode 100755
index 0000000..482b6a3
Binary files /dev/null and b/njc/njc8l differ
diff --git a/prog.asm b/prog.asm
new file mode 100644
index 0000000..4595159
--- /dev/null
+++ b/prog.asm
@@ -0,0 +1,8301 @@
+//
+// version
+//
+	.vers	8
+
+//
+// execution framework
+//
+__start:
+	call	_main
+	call	_exit
+__stop:
+	jmp	__stop
+
+//
+// Integer readInteger()
+//
+_readInteger:
+	asf	0
+	rdint
+	popr
+	rsf
+	ret
+
+//
+// void writeInteger(Integer)
+//
+_writeInteger:
+	asf	0
+	pushl	-3
+	wrint
+	rsf
+	ret
+
+//
+// Character readCharacter()
+//
+_readCharacter:
+	asf	0
+	rdchr
+	popr
+	rsf
+	ret
+
+//
+// void writeCharacter(Character)
+//
+_writeCharacter:
+	asf	0
+	pushl	-3
+	wrchr
+	rsf
+	ret
+
+//
+// Integer char2int(Character)
+//
+_char2int:
+	asf	0
+	pushl	-3
+	popr
+	rsf
+	ret
+
+//
+// Character int2char(Integer)
+//
+_int2char:
+	asf	0
+	pushl	-3
+	popr
+	rsf
+	ret
+
+//
+// void exit()
+//
+_exit:
+	asf	0
+	halt
+	rsf
+	ret
+
+//
+// void writeString(String)
+//
+_writeString:
+	asf	1
+	pushc	0
+	popl	0
+	jmp	_writeString_L2
+_writeString_L1:
+	pushl	-3
+	pushl	0
+	getfa
+	call	_writeCharacter
+	drop	1
+	pushl	0
+	pushc	1
+	add
+	popl	0
+_writeString_L2:
+	pushl	0
+	pushl	-3
+	getsz
+	lt
+	brt	_writeString_L1
+	rsf
+	ret
+
+//
+// record { Integer value; List next; } addToList(Integer, record { Integer value; List next; })
+//
+_addToList:
+	asf	1
+	new	2
+	popl	0
+	pushl	0
+	pushl	-4
+	putf	0
+	pushl	0
+	pushl	-3
+	putf	1
+	pushl	0
+	popr
+	jmp	__0
+__0:
+	rsf
+	ret
+
+//
+// record { Integer value; List next; } sortList(record { Integer value; List next; })
+//
+_sortList:
+	asf	3
+	pushn
+	popl	0
+	jmp	__3
+__2:
+	pushl	-3
+	popl	1
+	pushl	-3
+	getf	1
+	popl	-3
+	pushl	0
+	pushn
+	refeq
+	dup
+	brt	__7
+	drop	1
+	pushl	1
+	getf	0
+	pushl	0
+	getf	0
+	lt
+__7:
+	brf	__5
+	pushl	1
+	pushl	0
+	putf	1
+	pushl	1
+	popl	0
+	jmp	__6
+__5:
+	pushl	0
+	popl	2
+	jmp	__9
+__8:
+	pushl	2
+	getf	1
+	popl	2
+__9:
+	pushl	2
+	getf	1
+	pushn
+	refne
+	dup
+	brf	__11
+	drop	1
+	pushl	1
+	getf	0
+	pushl	2
+	getf	1
+	getf	0
+	ge
+__11:
+	brt	__8
+__10:
+	pushl	1
+	pushl	2
+	getf	1
+	putf	1
+	pushl	2
+	pushl	1
+	putf	1
+__6:
+__3:
+	pushl	-3
+	pushn
+	refne
+	brt	__2
+__4:
+	pushl	0
+	popr
+	jmp	__1
+__1:
+	rsf
+	ret
+
+//
+// void showList(record { Integer value; List next; })
+//
+_showList:
+	asf	0
+	pushl	-3
+	pushn
+	refeq
+	brf	__13
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	49
+	putfa
+	call	_writeString
+	drop	1
+	jmp	__14
+__13:
+	jmp	__16
+__15:
+	pushl	-3
+	getf	0
+	call	_writeInteger
+	drop	1
+	pushl	-3
+	getf	1
+	popl	-3
+	pushl	-3
+	pushn
+	refeq
+	brf	__18
+	jmp	__17
+__18:
+	pushc	3
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	42
+	putfa
+	dup
+	pushc	2
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+__16:
+	pushc	1
+	brt	__15
+__17:
+__14:
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__12:
+	rsf
+	ret
+
+//
+// Integer evalList(record { Integer value; List next; })
+//
+_evalList:
+	asf	1
+	pushc	1
+	popl	0
+	jmp	__21
+__20:
+	pushl	0
+	pushl	-3
+	getf	0
+	mul
+	popl	0
+	pushl	-3
+	getf	1
+	popl	-3
+__21:
+	pushl	-3
+	pushn
+	refne
+	brt	__20
+__22:
+	pushl	0
+	popr
+	jmp	__19
+__19:
+	rsf
+	ret
+
+//
+// record { Integer value; List next; } fuseLists(record { Integer value; List next; }, record { Integer value; List next; })
+//
+_fuseLists:
+	asf	1
+	jmp	__25
+__24:
+	pushl	-4
+	popl	0
+	pushl	-4
+	getf	1
+	popl	-4
+	pushl	0
+	pushl	-3
+	putf	1
+	pushl	0
+	popl	-3
+__25:
+	pushl	-4
+	pushn
+	refne
+	brt	__24
+__26:
+	pushl	-3
+	popr
+	jmp	__23
+__23:
+	rsf
+	ret
+
+//
+// Integer computeTarget(Integer)
+//
+_computeTarget:
+	asf	2
+	pushc	1
+	popl	0
+	pushc	0
+	popl	1
+	jmp	__29
+__28:
+	pushl	0
+	pushc	10
+	mul
+	popl	0
+	pushl	1
+	pushc	1
+	add
+	popl	1
+__29:
+	pushl	1
+	pushl	-3
+	lt
+	brt	__28
+__30:
+	pushl	0
+	pushc	1
+	add
+	popl	0
+	pushl	0
+	popr
+	jmp	__27
+__27:
+	rsf
+	ret
+
+//
+// void testComputeTarget()
+//
+_testComputeTarget:
+	asf	0
+	pushc	16
+	newa
+	dup
+	pushc	0
+	pushc	99
+	putfa
+	dup
+	pushc	1
+	pushc	111
+	putfa
+	dup
+	pushc	2
+	pushc	109
+	putfa
+	dup
+	pushc	3
+	pushc	112
+	putfa
+	dup
+	pushc	4
+	pushc	117
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	101
+	putfa
+	dup
+	pushc	7
+	pushc	84
+	putfa
+	dup
+	pushc	8
+	pushc	97
+	putfa
+	dup
+	pushc	9
+	pushc	114
+	putfa
+	dup
+	pushc	10
+	pushc	103
+	putfa
+	dup
+	pushc	11
+	pushc	101
+	putfa
+	dup
+	pushc	12
+	pushc	116
+	putfa
+	dup
+	pushc	13
+	pushc	40
+	putfa
+	dup
+	pushc	14
+	pushc	41
+	putfa
+	dup
+	pushc	15
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	16
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	45
+	putfa
+	dup
+	pushc	14
+	pushc	45
+	putfa
+	dup
+	pushc	15
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	114
+	putfa
+	dup
+	pushc	3
+	pushc	103
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	40
+	putfa
+	dup
+	pushc	7
+	pushc	49
+	putfa
+	dup
+	pushc	8
+	pushc	41
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	61
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	call	_computeTarget
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	114
+	putfa
+	dup
+	pushc	3
+	pushc	103
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	40
+	putfa
+	dup
+	pushc	7
+	pushc	50
+	putfa
+	dup
+	pushc	8
+	pushc	41
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	61
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	2
+	call	_computeTarget
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	114
+	putfa
+	dup
+	pushc	3
+	pushc	103
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	40
+	putfa
+	dup
+	pushc	7
+	pushc	51
+	putfa
+	dup
+	pushc	8
+	pushc	41
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	61
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	3
+	call	_computeTarget
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	114
+	putfa
+	dup
+	pushc	3
+	pushc	103
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	40
+	putfa
+	dup
+	pushc	7
+	pushc	52
+	putfa
+	dup
+	pushc	8
+	pushc	41
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	61
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	4
+	call	_computeTarget
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__31:
+	rsf
+	ret
+
+//
+// void showSmallPrimes()
+//
+_showSmallPrimes:
+	asf	2
+	pushc	0
+	popl	0
+	pushc	0
+	popl	1
+	jmp	__34
+__33:
+	pushg	1
+	pushl	0
+	getfa
+	call	_writeInteger
+	drop	1
+	pushc	2
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	1
+	pushc	1
+	add
+	popl	1
+	pushl	1
+	pushc	8
+	eq
+	brf	__36
+	pushc	0
+	popl	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__36:
+	pushl	0
+	pushc	1
+	add
+	popl	0
+__34:
+	pushl	0
+	pushg	2
+	lt
+	brt	__33
+__35:
+	pushl	1
+	pushc	0
+	ne
+	brf	__37
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__37:
+__32:
+	rsf
+	ret
+
+//
+// void enterSmallPrime(Integer)
+//
+_enterSmallPrime:
+	asf	3
+	pushg	1
+	getsz
+	pushg	2
+	eq
+	brf	__39
+	pushc	2
+	pushg	2
+	mul
+	popl	0
+	pushl	0
+	newa
+	popl	1
+	pushc	0
+	popl	2
+	jmp	__41
+__40:
+	pushl	1
+	pushl	2
+	pushg	1
+	pushl	2
+	getfa
+	putfa
+	pushl	2
+	pushc	1
+	add
+	popl	2
+__41:
+	pushl	2
+	pushg	2
+	lt
+	brt	__40
+__42:
+	pushl	1
+	popg	1
+__39:
+	pushg	1
+	pushg	2
+	pushl	-3
+	putfa
+	pushg	2
+	pushc	1
+	add
+	popg	2
+__38:
+	rsf
+	ret
+
+//
+// Boolean isPrime(Integer)
+//
+_isPrime:
+	asf	1
+	pushc	3
+	popl	0
+	jmp	__45
+__44:
+	pushl	-3
+	pushl	0
+	mod
+	pushc	0
+	eq
+	brf	__47
+	pushc	0
+	popr
+	jmp	__43
+__47:
+	pushl	0
+	pushc	2
+	add
+	popl	0
+__45:
+	pushl	0
+	pushl	0
+	mul
+	pushl	-3
+	le
+	brt	__44
+__46:
+	pushc	1
+	popr
+	jmp	__43
+__43:
+	rsf
+	ret
+
+//
+// void calcSmallPrimes(Integer)
+//
+_calcSmallPrimes:
+	asf	1
+	pushl	-3
+	popg	0
+	pushc	256
+	newa
+	popg	1
+	pushc	0
+	popg	2
+	pushc	2
+	call	_enterSmallPrime
+	drop	1
+	pushc	3
+	call	_enterSmallPrime
+	drop	1
+	pushc	5
+	popl	0
+	jmp	__50
+__49:
+	pushl	0
+	pushg	0
+	gt
+	brf	__52
+	jmp	__51
+__52:
+	pushl	0
+	call	_isPrime
+	drop	1
+	pushr
+	brf	__53
+	pushl	0
+	call	_enterSmallPrime
+	drop	1
+__53:
+	pushl	0
+	pushc	2
+	add
+	popl	0
+	pushl	0
+	pushg	0
+	gt
+	brf	__54
+	jmp	__51
+__54:
+	pushl	0
+	call	_isPrime
+	drop	1
+	pushr
+	brf	__55
+	pushl	0
+	call	_enterSmallPrime
+	drop	1
+__55:
+	pushl	0
+	pushc	4
+	add
+	popl	0
+__50:
+	pushc	1
+	brt	__49
+__51:
+__48:
+	rsf
+	ret
+
+//
+// void testCalcSmallPrimes()
+//
+_testCalcSmallPrimes:
+	asf	0
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	99
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	108
+	putfa
+	dup
+	pushc	3
+	pushc	99
+	putfa
+	dup
+	pushc	4
+	pushc	83
+	putfa
+	dup
+	pushc	5
+	pushc	109
+	putfa
+	dup
+	pushc	6
+	pushc	97
+	putfa
+	dup
+	pushc	7
+	pushc	108
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	80
+	putfa
+	dup
+	pushc	10
+	pushc	114
+	putfa
+	dup
+	pushc	11
+	pushc	105
+	putfa
+	dup
+	pushc	12
+	pushc	109
+	putfa
+	dup
+	pushc	13
+	pushc	101
+	putfa
+	dup
+	pushc	14
+	pushc	115
+	putfa
+	dup
+	pushc	15
+	pushc	40
+	putfa
+	dup
+	pushc	16
+	pushc	41
+	putfa
+	dup
+	pushc	17
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	45
+	putfa
+	dup
+	pushc	14
+	pushc	45
+	putfa
+	dup
+	pushc	15
+	pushc	45
+	putfa
+	dup
+	pushc	16
+	pushc	45
+	putfa
+	dup
+	pushc	17
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	34
+	newa
+	dup
+	pushc	0
+	pushc	112
+	putfa
+	dup
+	pushc	1
+	pushc	114
+	putfa
+	dup
+	pushc	2
+	pushc	105
+	putfa
+	dup
+	pushc	3
+	pushc	109
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	115
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	108
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	115
+	putfa
+	dup
+	pushc	10
+	pushc	115
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	116
+	putfa
+	dup
+	pushc	13
+	pushc	104
+	putfa
+	dup
+	pushc	14
+	pushc	97
+	putfa
+	dup
+	pushc	15
+	pushc	110
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	111
+	putfa
+	dup
+	pushc	18
+	pushc	114
+	putfa
+	dup
+	pushc	19
+	pushc	32
+	putfa
+	dup
+	pushc	20
+	pushc	101
+	putfa
+	dup
+	pushc	21
+	pushc	113
+	putfa
+	dup
+	pushc	22
+	pushc	117
+	putfa
+	dup
+	pushc	23
+	pushc	97
+	putfa
+	dup
+	pushc	24
+	pushc	108
+	putfa
+	dup
+	pushc	25
+	pushc	32
+	putfa
+	dup
+	pushc	26
+	pushc	116
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	32
+	putfa
+	dup
+	pushc	29
+	pushc	49
+	putfa
+	dup
+	pushc	30
+	pushc	48
+	putfa
+	dup
+	pushc	31
+	pushc	48
+	putfa
+	dup
+	pushc	32
+	pushc	58
+	putfa
+	dup
+	pushc	33
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	100
+	call	_calcSmallPrimes
+	drop	1
+	call	_showSmallPrimes
+	pushc	44
+	newa
+	dup
+	pushc	0
+	pushc	110
+	putfa
+	dup
+	pushc	1
+	pushc	117
+	putfa
+	dup
+	pushc	2
+	pushc	109
+	putfa
+	dup
+	pushc	3
+	pushc	98
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	111
+	putfa
+	dup
+	pushc	8
+	pushc	102
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	114
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	109
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	115
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	108
+	putfa
+	dup
+	pushc	18
+	pushc	101
+	putfa
+	dup
+	pushc	19
+	pushc	115
+	putfa
+	dup
+	pushc	20
+	pushc	115
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	116
+	putfa
+	dup
+	pushc	23
+	pushc	104
+	putfa
+	dup
+	pushc	24
+	pushc	97
+	putfa
+	dup
+	pushc	25
+	pushc	110
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	114
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	dup
+	pushc	30
+	pushc	101
+	putfa
+	dup
+	pushc	31
+	pushc	113
+	putfa
+	dup
+	pushc	32
+	pushc	117
+	putfa
+	dup
+	pushc	33
+	pushc	97
+	putfa
+	dup
+	pushc	34
+	pushc	108
+	putfa
+	dup
+	pushc	35
+	pushc	32
+	putfa
+	dup
+	pushc	36
+	pushc	116
+	putfa
+	dup
+	pushc	37
+	pushc	111
+	putfa
+	dup
+	pushc	38
+	pushc	32
+	putfa
+	dup
+	pushc	39
+	pushc	49
+	putfa
+	dup
+	pushc	40
+	pushc	48
+	putfa
+	dup
+	pushc	41
+	pushc	48
+	putfa
+	dup
+	pushc	42
+	pushc	58
+	putfa
+	dup
+	pushc	43
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushg	2
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1000
+	call	_calcSmallPrimes
+	drop	1
+	pushc	45
+	newa
+	dup
+	pushc	0
+	pushc	110
+	putfa
+	dup
+	pushc	1
+	pushc	117
+	putfa
+	dup
+	pushc	2
+	pushc	109
+	putfa
+	dup
+	pushc	3
+	pushc	98
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	111
+	putfa
+	dup
+	pushc	8
+	pushc	102
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	114
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	109
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	115
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	108
+	putfa
+	dup
+	pushc	18
+	pushc	101
+	putfa
+	dup
+	pushc	19
+	pushc	115
+	putfa
+	dup
+	pushc	20
+	pushc	115
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	116
+	putfa
+	dup
+	pushc	23
+	pushc	104
+	putfa
+	dup
+	pushc	24
+	pushc	97
+	putfa
+	dup
+	pushc	25
+	pushc	110
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	114
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	dup
+	pushc	30
+	pushc	101
+	putfa
+	dup
+	pushc	31
+	pushc	113
+	putfa
+	dup
+	pushc	32
+	pushc	117
+	putfa
+	dup
+	pushc	33
+	pushc	97
+	putfa
+	dup
+	pushc	34
+	pushc	108
+	putfa
+	dup
+	pushc	35
+	pushc	32
+	putfa
+	dup
+	pushc	36
+	pushc	116
+	putfa
+	dup
+	pushc	37
+	pushc	111
+	putfa
+	dup
+	pushc	38
+	pushc	32
+	putfa
+	dup
+	pushc	39
+	pushc	49
+	putfa
+	dup
+	pushc	40
+	pushc	48
+	putfa
+	dup
+	pushc	41
+	pushc	48
+	putfa
+	dup
+	pushc	42
+	pushc	48
+	putfa
+	dup
+	pushc	43
+	pushc	58
+	putfa
+	dup
+	pushc	44
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushg	2
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	10000
+	call	_calcSmallPrimes
+	drop	1
+	pushc	46
+	newa
+	dup
+	pushc	0
+	pushc	110
+	putfa
+	dup
+	pushc	1
+	pushc	117
+	putfa
+	dup
+	pushc	2
+	pushc	109
+	putfa
+	dup
+	pushc	3
+	pushc	98
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	111
+	putfa
+	dup
+	pushc	8
+	pushc	102
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	114
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	109
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	115
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	108
+	putfa
+	dup
+	pushc	18
+	pushc	101
+	putfa
+	dup
+	pushc	19
+	pushc	115
+	putfa
+	dup
+	pushc	20
+	pushc	115
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	116
+	putfa
+	dup
+	pushc	23
+	pushc	104
+	putfa
+	dup
+	pushc	24
+	pushc	97
+	putfa
+	dup
+	pushc	25
+	pushc	110
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	114
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	dup
+	pushc	30
+	pushc	101
+	putfa
+	dup
+	pushc	31
+	pushc	113
+	putfa
+	dup
+	pushc	32
+	pushc	117
+	putfa
+	dup
+	pushc	33
+	pushc	97
+	putfa
+	dup
+	pushc	34
+	pushc	108
+	putfa
+	dup
+	pushc	35
+	pushc	32
+	putfa
+	dup
+	pushc	36
+	pushc	116
+	putfa
+	dup
+	pushc	37
+	pushc	111
+	putfa
+	dup
+	pushc	38
+	pushc	32
+	putfa
+	dup
+	pushc	39
+	pushc	49
+	putfa
+	dup
+	pushc	40
+	pushc	48
+	putfa
+	dup
+	pushc	41
+	pushc	48
+	putfa
+	dup
+	pushc	42
+	pushc	48
+	putfa
+	dup
+	pushc	43
+	pushc	48
+	putfa
+	dup
+	pushc	44
+	pushc	58
+	putfa
+	dup
+	pushc	45
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushg	2
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	100000
+	call	_calcSmallPrimes
+	drop	1
+	pushc	47
+	newa
+	dup
+	pushc	0
+	pushc	110
+	putfa
+	dup
+	pushc	1
+	pushc	117
+	putfa
+	dup
+	pushc	2
+	pushc	109
+	putfa
+	dup
+	pushc	3
+	pushc	98
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	111
+	putfa
+	dup
+	pushc	8
+	pushc	102
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	114
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	109
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	115
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	108
+	putfa
+	dup
+	pushc	18
+	pushc	101
+	putfa
+	dup
+	pushc	19
+	pushc	115
+	putfa
+	dup
+	pushc	20
+	pushc	115
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	116
+	putfa
+	dup
+	pushc	23
+	pushc	104
+	putfa
+	dup
+	pushc	24
+	pushc	97
+	putfa
+	dup
+	pushc	25
+	pushc	110
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	114
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	dup
+	pushc	30
+	pushc	101
+	putfa
+	dup
+	pushc	31
+	pushc	113
+	putfa
+	dup
+	pushc	32
+	pushc	117
+	putfa
+	dup
+	pushc	33
+	pushc	97
+	putfa
+	dup
+	pushc	34
+	pushc	108
+	putfa
+	dup
+	pushc	35
+	pushc	32
+	putfa
+	dup
+	pushc	36
+	pushc	116
+	putfa
+	dup
+	pushc	37
+	pushc	111
+	putfa
+	dup
+	pushc	38
+	pushc	32
+	putfa
+	dup
+	pushc	39
+	pushc	49
+	putfa
+	dup
+	pushc	40
+	pushc	48
+	putfa
+	dup
+	pushc	41
+	pushc	48
+	putfa
+	dup
+	pushc	42
+	pushc	48
+	putfa
+	dup
+	pushc	43
+	pushc	48
+	putfa
+	dup
+	pushc	44
+	pushc	48
+	putfa
+	dup
+	pushc	45
+	pushc	58
+	putfa
+	dup
+	pushc	46
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushg	2
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__56:
+	rsf
+	ret
+
+//
+// Integer smallPrimeFactor(Integer)
+//
+_smallPrimeFactor:
+	asf	1
+	pushc	0
+	popl	0
+	jmp	__59
+__58:
+	pushl	-3
+	pushg	1
+	pushl	0
+	getfa
+	mod
+	pushc	0
+	eq
+	brf	__61
+	pushg	1
+	pushl	0
+	getfa
+	popr
+	jmp	__57
+__61:
+	pushl	0
+	pushc	1
+	add
+	popl	0
+__59:
+	pushl	0
+	pushg	2
+	lt
+	brt	__58
+__60:
+	pushc	0
+	popr
+	jmp	__57
+__57:
+	rsf
+	ret
+
+//
+// void testSmallPrimeFactor()
+//
+_testSmallPrimeFactor:
+	asf	0
+	pushc	10000
+	call	_calcSmallPrimes
+	drop	1
+	pushc	19
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	80
+	putfa
+	dup
+	pushc	6
+	pushc	114
+	putfa
+	dup
+	pushc	7
+	pushc	105
+	putfa
+	dup
+	pushc	8
+	pushc	109
+	putfa
+	dup
+	pushc	9
+	pushc	101
+	putfa
+	dup
+	pushc	10
+	pushc	70
+	putfa
+	dup
+	pushc	11
+	pushc	97
+	putfa
+	dup
+	pushc	12
+	pushc	99
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	111
+	putfa
+	dup
+	pushc	15
+	pushc	114
+	putfa
+	dup
+	pushc	16
+	pushc	40
+	putfa
+	dup
+	pushc	17
+	pushc	41
+	putfa
+	dup
+	pushc	18
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	19
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	45
+	putfa
+	dup
+	pushc	14
+	pushc	45
+	putfa
+	dup
+	pushc	15
+	pushc	45
+	putfa
+	dup
+	pushc	16
+	pushc	45
+	putfa
+	dup
+	pushc	17
+	pushc	45
+	putfa
+	dup
+	pushc	18
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	25
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	112
+	putfa
+	dup
+	pushc	7
+	pushc	114
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	109
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	102
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	99
+	putfa
+	dup
+	pushc	15
+	pushc	116
+	putfa
+	dup
+	pushc	16
+	pushc	111
+	putfa
+	dup
+	pushc	17
+	pushc	114
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	102
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	50
+	putfa
+	dup
+	pushc	23
+	pushc	58
+	putfa
+	dup
+	pushc	24
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	2
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	27
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	112
+	putfa
+	dup
+	pushc	7
+	pushc	114
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	109
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	102
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	99
+	putfa
+	dup
+	pushc	15
+	pushc	116
+	putfa
+	dup
+	pushc	16
+	pushc	111
+	putfa
+	dup
+	pushc	17
+	pushc	114
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	102
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	50
+	putfa
+	dup
+	pushc	23
+	pushc	50
+	putfa
+	dup
+	pushc	24
+	pushc	50
+	putfa
+	dup
+	pushc	25
+	pushc	58
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	222
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	32
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	112
+	putfa
+	dup
+	pushc	7
+	pushc	114
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	109
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	102
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	99
+	putfa
+	dup
+	pushc	15
+	pushc	116
+	putfa
+	dup
+	pushc	16
+	pushc	111
+	putfa
+	dup
+	pushc	17
+	pushc	114
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	102
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	49
+	putfa
+	dup
+	pushc	23
+	pushc	55
+	putfa
+	dup
+	pushc	24
+	pushc	42
+	putfa
+	dup
+	pushc	25
+	pushc	49
+	putfa
+	dup
+	pushc	26
+	pushc	57
+	putfa
+	dup
+	pushc	27
+	pushc	42
+	putfa
+	dup
+	pushc	28
+	pushc	50
+	putfa
+	dup
+	pushc	29
+	pushc	51
+	putfa
+	dup
+	pushc	30
+	pushc	58
+	putfa
+	dup
+	pushc	31
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	17
+	pushc	19
+	mul
+	pushc	23
+	mul
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	28
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	112
+	putfa
+	dup
+	pushc	7
+	pushc	114
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	109
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	102
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	99
+	putfa
+	dup
+	pushc	15
+	pushc	116
+	putfa
+	dup
+	pushc	16
+	pushc	111
+	putfa
+	dup
+	pushc	17
+	pushc	114
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	102
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	55
+	putfa
+	dup
+	pushc	23
+	pushc	57
+	putfa
+	dup
+	pushc	24
+	pushc	49
+	putfa
+	dup
+	pushc	25
+	pushc	57
+	putfa
+	dup
+	pushc	26
+	pushc	58
+	putfa
+	dup
+	pushc	27
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	7919
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	33
+	newa
+	dup
+	pushc	0
+	pushc	115
+	putfa
+	dup
+	pushc	1
+	pushc	109
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	108
+	putfa
+	dup
+	pushc	4
+	pushc	108
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	112
+	putfa
+	dup
+	pushc	7
+	pushc	114
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	109
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	102
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	99
+	putfa
+	dup
+	pushc	15
+	pushc	116
+	putfa
+	dup
+	pushc	16
+	pushc	111
+	putfa
+	dup
+	pushc	17
+	pushc	114
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	102
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	57
+	putfa
+	dup
+	pushc	23
+	pushc	56
+	putfa
+	dup
+	pushc	24
+	pushc	55
+	putfa
+	dup
+	pushc	25
+	pushc	54
+	putfa
+	dup
+	pushc	26
+	pushc	53
+	putfa
+	dup
+	pushc	27
+	pushc	52
+	putfa
+	dup
+	pushc	28
+	pushc	51
+	putfa
+	dup
+	pushc	29
+	pushc	50
+	putfa
+	dup
+	pushc	30
+	pushc	51
+	putfa
+	dup
+	pushc	31
+	pushc	58
+	putfa
+	dup
+	pushc	32
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	987654
+	pushc	1000
+	mul
+	pushc	323
+	add
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__62:
+	rsf
+	ret
+
+//
+// Integer powerMod(Integer, Integer, Integer)
+//
+_powerMod:
+	asf	1
+	pushc	1
+	popl	0
+	jmp	__65
+__64:
+	pushl	-4
+	pushc	2
+	mod
+	pushc	0
+	eq
+	brf	__67
+	pushl	-5
+	pushl	-5
+	mul
+	pushl	-3
+	mod
+	popl	-5
+	pushl	-4
+	pushc	2
+	div
+	popl	-4
+	jmp	__68
+__67:
+	pushl	0
+	pushl	-5
+	mul
+	pushl	-3
+	mod
+	popl	0
+	pushl	-4
+	pushc	1
+	sub
+	popl	-4
+__68:
+__65:
+	pushl	-4
+	pushc	0
+	ne
+	brt	__64
+__66:
+	pushl	0
+	popr
+	jmp	__63
+__63:
+	rsf
+	ret
+
+//
+// void testPowerMod()
+//
+_testPowerMod:
+	asf	0
+	pushc	11
+	newa
+	dup
+	pushc	0
+	pushc	112
+	putfa
+	dup
+	pushc	1
+	pushc	111
+	putfa
+	dup
+	pushc	2
+	pushc	119
+	putfa
+	dup
+	pushc	3
+	pushc	101
+	putfa
+	dup
+	pushc	4
+	pushc	114
+	putfa
+	dup
+	pushc	5
+	pushc	77
+	putfa
+	dup
+	pushc	6
+	pushc	111
+	putfa
+	dup
+	pushc	7
+	pushc	100
+	putfa
+	dup
+	pushc	8
+	pushc	40
+	putfa
+	dup
+	pushc	9
+	pushc	41
+	putfa
+	dup
+	pushc	10
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	11
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	50
+	putfa
+	dup
+	pushc	1
+	pushc	94
+	putfa
+	dup
+	pushc	2
+	pushc	49
+	putfa
+	dup
+	pushc	3
+	pushc	54
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	109
+	putfa
+	dup
+	pushc	6
+	pushc	111
+	putfa
+	dup
+	pushc	7
+	pushc	100
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	55
+	putfa
+	dup
+	pushc	10
+	pushc	58
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	2
+	pushc	16
+	pushc	7
+	call	_powerMod
+	drop	3
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	13
+	newa
+	dup
+	pushc	0
+	pushc	51
+	putfa
+	dup
+	pushc	1
+	pushc	94
+	putfa
+	dup
+	pushc	2
+	pushc	49
+	putfa
+	dup
+	pushc	3
+	pushc	48
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	109
+	putfa
+	dup
+	pushc	6
+	pushc	111
+	putfa
+	dup
+	pushc	7
+	pushc	100
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	49
+	putfa
+	dup
+	pushc	10
+	pushc	57
+	putfa
+	dup
+	pushc	11
+	pushc	58
+	putfa
+	dup
+	pushc	12
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	3
+	pushc	10
+	pushc	19
+	call	_powerMod
+	drop	3
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	29
+	newa
+	dup
+	pushc	0
+	pushc	49
+	putfa
+	dup
+	pushc	1
+	pushc	50
+	putfa
+	dup
+	pushc	2
+	pushc	51
+	putfa
+	dup
+	pushc	3
+	pushc	94
+	putfa
+	dup
+	pushc	4
+	pushc	57
+	putfa
+	dup
+	pushc	5
+	pushc	56
+	putfa
+	dup
+	pushc	6
+	pushc	55
+	putfa
+	dup
+	pushc	7
+	pushc	54
+	putfa
+	dup
+	pushc	8
+	pushc	53
+	putfa
+	dup
+	pushc	9
+	pushc	52
+	putfa
+	dup
+	pushc	10
+	pushc	51
+	putfa
+	dup
+	pushc	11
+	pushc	50
+	putfa
+	dup
+	pushc	12
+	pushc	51
+	putfa
+	dup
+	pushc	13
+	pushc	32
+	putfa
+	dup
+	pushc	14
+	pushc	109
+	putfa
+	dup
+	pushc	15
+	pushc	111
+	putfa
+	dup
+	pushc	16
+	pushc	100
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	dup
+	pushc	18
+	pushc	57
+	putfa
+	dup
+	pushc	19
+	pushc	56
+	putfa
+	dup
+	pushc	20
+	pushc	55
+	putfa
+	dup
+	pushc	21
+	pushc	54
+	putfa
+	dup
+	pushc	22
+	pushc	53
+	putfa
+	dup
+	pushc	23
+	pushc	52
+	putfa
+	dup
+	pushc	24
+	pushc	51
+	putfa
+	dup
+	pushc	25
+	pushc	50
+	putfa
+	dup
+	pushc	26
+	pushc	51
+	putfa
+	dup
+	pushc	27
+	pushc	58
+	putfa
+	dup
+	pushc	28
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	123
+	pushc	987654
+	pushc	1000
+	mul
+	pushc	323
+	add
+	pushc	987654
+	pushc	1000
+	mul
+	pushc	323
+	add
+	call	_powerMod
+	drop	3
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__69:
+	rsf
+	ret
+
+//
+// Integer GCD(Integer, Integer)
+//
+_GCD:
+	asf	1
+	pushl	-4
+	pushc	0
+	lt
+	brf	__71
+	pushc	0
+	pushl	-4
+	sub
+	popl	-4
+__71:
+	pushl	-3
+	pushc	0
+	lt
+	brf	__72
+	pushc	0
+	pushl	-3
+	sub
+	popl	-3
+__72:
+	jmp	__74
+__73:
+	pushl	-4
+	pushl	-3
+	mod
+	popl	0
+	pushl	-3
+	popl	-4
+	pushl	0
+	popl	-3
+__74:
+	pushl	-3
+	pushc	0
+	ne
+	brt	__73
+__75:
+	pushl	-4
+	popr
+	jmp	__70
+__70:
+	rsf
+	ret
+
+//
+// void testGCD()
+//
+_testGCD:
+	asf	0
+	pushc	6
+	newa
+	dup
+	pushc	0
+	pushc	71
+	putfa
+	dup
+	pushc	1
+	pushc	67
+	putfa
+	dup
+	pushc	2
+	pushc	68
+	putfa
+	dup
+	pushc	3
+	pushc	40
+	putfa
+	dup
+	pushc	4
+	pushc	41
+	putfa
+	dup
+	pushc	5
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	6
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	32
+	newa
+	dup
+	pushc	0
+	pushc	71
+	putfa
+	dup
+	pushc	1
+	pushc	67
+	putfa
+	dup
+	pushc	2
+	pushc	68
+	putfa
+	dup
+	pushc	3
+	pushc	40
+	putfa
+	dup
+	pushc	4
+	pushc	51
+	putfa
+	dup
+	pushc	5
+	pushc	42
+	putfa
+	dup
+	pushc	6
+	pushc	53
+	putfa
+	dup
+	pushc	7
+	pushc	42
+	putfa
+	dup
+	pushc	8
+	pushc	53
+	putfa
+	dup
+	pushc	9
+	pushc	42
+	putfa
+	dup
+	pushc	10
+	pushc	49
+	putfa
+	dup
+	pushc	11
+	pushc	49
+	putfa
+	dup
+	pushc	12
+	pushc	42
+	putfa
+	dup
+	pushc	13
+	pushc	51
+	putfa
+	dup
+	pushc	14
+	pushc	55
+	putfa
+	dup
+	pushc	15
+	pushc	44
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	50
+	putfa
+	dup
+	pushc	18
+	pushc	42
+	putfa
+	dup
+	pushc	19
+	pushc	50
+	putfa
+	dup
+	pushc	20
+	pushc	42
+	putfa
+	dup
+	pushc	21
+	pushc	53
+	putfa
+	dup
+	pushc	22
+	pushc	42
+	putfa
+	dup
+	pushc	23
+	pushc	51
+	putfa
+	dup
+	pushc	24
+	pushc	55
+	putfa
+	dup
+	pushc	25
+	pushc	42
+	putfa
+	dup
+	pushc	26
+	pushc	53
+	putfa
+	dup
+	pushc	27
+	pushc	51
+	putfa
+	dup
+	pushc	28
+	pushc	41
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	dup
+	pushc	30
+	pushc	61
+	putfa
+	dup
+	pushc	31
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	3
+	pushc	5
+	mul
+	pushc	5
+	mul
+	pushc	11
+	mul
+	pushc	37
+	mul
+	pushc	2
+	pushc	2
+	mul
+	pushc	5
+	mul
+	pushc	37
+	mul
+	pushc	53
+	mul
+	call	_GCD
+	drop	2
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__76:
+	rsf
+	ret
+
+//
+// Boolean isComposite(Integer)
+//
+_isComposite:
+	asf	6
+	pushl	-3
+	pushc	1
+	sub
+	popl	0
+	pushc	0
+	popl	1
+	jmp	__79
+__78:
+	pushl	0
+	pushc	2
+	div
+	popl	0
+	pushl	1
+	pushc	1
+	add
+	popl	1
+__79:
+	pushl	0
+	pushc	2
+	mod
+	pushc	0
+	eq
+	brt	__78
+__80:
+	pushc	0
+	popl	2
+	jmp	__82
+__81:
+	pushg	1
+	pushl	2
+	getfa
+	popl	3
+	pushl	3
+	pushl	-3
+	ge
+	brf	__84
+	jmp	__83
+__84:
+	pushc	0
+	popl	4
+	pushl	3
+	pushl	0
+	pushl	-3
+	call	_powerMod
+	drop	3
+	pushr
+	popl	5
+	pushl	5
+	pushc	1
+	ne
+	brf	__85
+	jmp	__87
+__86:
+	pushl	5
+	pushl	5
+	mul
+	pushl	-3
+	mod
+	popl	5
+	pushl	4
+	pushc	1
+	add
+	popl	4
+__87:
+	pushl	5
+	pushc	1
+	ne
+	dup
+	brf	__90
+	drop	1
+	pushl	5
+	pushl	-3
+	pushc	1
+	sub
+	ne
+__90:
+	dup
+	brf	__89
+	drop	1
+	pushl	4
+	pushl	1
+	pushc	2
+	sub
+	le
+__89:
+	brt	__86
+__88:
+	pushl	5
+	pushl	-3
+	pushc	1
+	sub
+	ne
+	brf	__91
+	pushc	1
+	popr
+	jmp	__77
+__91:
+__85:
+	pushl	2
+	pushc	1
+	add
+	popl	2
+__82:
+	pushl	2
+	pushc	20
+	lt
+	brt	__81
+__83:
+	pushc	0
+	popr
+	jmp	__77
+__77:
+	rsf
+	ret
+
+//
+// void testIsComposite()
+//
+_testIsComposite:
+	asf	2
+	pushc	14
+	newa
+	dup
+	pushc	0
+	pushc	105
+	putfa
+	dup
+	pushc	1
+	pushc	115
+	putfa
+	dup
+	pushc	2
+	pushc	67
+	putfa
+	dup
+	pushc	3
+	pushc	111
+	putfa
+	dup
+	pushc	4
+	pushc	109
+	putfa
+	dup
+	pushc	5
+	pushc	112
+	putfa
+	dup
+	pushc	6
+	pushc	111
+	putfa
+	dup
+	pushc	7
+	pushc	115
+	putfa
+	dup
+	pushc	8
+	pushc	105
+	putfa
+	dup
+	pushc	9
+	pushc	116
+	putfa
+	dup
+	pushc	10
+	pushc	101
+	putfa
+	dup
+	pushc	11
+	pushc	40
+	putfa
+	dup
+	pushc	12
+	pushc	41
+	putfa
+	dup
+	pushc	13
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	14
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	49
+	newa
+	dup
+	pushc	0
+	pushc	111
+	putfa
+	dup
+	pushc	1
+	pushc	100
+	putfa
+	dup
+	pushc	2
+	pushc	100
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	110
+	putfa
+	dup
+	pushc	5
+	pushc	117
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	98
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	114
+	putfa
+	dup
+	pushc	10
+	pushc	115
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	110
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	91
+	putfa
+	dup
+	pushc	16
+	pushc	51
+	putfa
+	dup
+	pushc	17
+	pushc	46
+	putfa
+	dup
+	pushc	18
+	pushc	46
+	putfa
+	dup
+	pushc	19
+	pushc	57
+	putfa
+	dup
+	pushc	20
+	pushc	57
+	putfa
+	dup
+	pushc	21
+	pushc	93
+	putfa
+	dup
+	pushc	22
+	pushc	32
+	putfa
+	dup
+	pushc	23
+	pushc	119
+	putfa
+	dup
+	pushc	24
+	pushc	104
+	putfa
+	dup
+	pushc	25
+	pushc	105
+	putfa
+	dup
+	pushc	26
+	pushc	99
+	putfa
+	dup
+	pushc	27
+	pushc	104
+	putfa
+	dup
+	pushc	28
+	pushc	32
+	putfa
+	dup
+	pushc	29
+	pushc	97
+	putfa
+	dup
+	pushc	30
+	pushc	114
+	putfa
+	dup
+	pushc	31
+	pushc	101
+	putfa
+	dup
+	pushc	32
+	pushc	32
+	putfa
+	dup
+	pushc	33
+	pushc	112
+	putfa
+	dup
+	pushc	34
+	pushc	114
+	putfa
+	dup
+	pushc	35
+	pushc	111
+	putfa
+	dup
+	pushc	36
+	pushc	98
+	putfa
+	dup
+	pushc	37
+	pushc	97
+	putfa
+	dup
+	pushc	38
+	pushc	98
+	putfa
+	dup
+	pushc	39
+	pushc	108
+	putfa
+	dup
+	pushc	40
+	pushc	121
+	putfa
+	dup
+	pushc	41
+	pushc	32
+	putfa
+	dup
+	pushc	42
+	pushc	112
+	putfa
+	dup
+	pushc	43
+	pushc	114
+	putfa
+	dup
+	pushc	44
+	pushc	105
+	putfa
+	dup
+	pushc	45
+	pushc	109
+	putfa
+	dup
+	pushc	46
+	pushc	101
+	putfa
+	dup
+	pushc	47
+	pushc	58
+	putfa
+	dup
+	pushc	48
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	3
+	popl	0
+	pushc	0
+	popl	1
+	jmp	__94
+__93:
+	pushc	1
+	pushl	0
+	call	_isComposite
+	drop	1
+	pushr
+	sub
+	brf	__96
+	pushl	0
+	call	_writeInteger
+	drop	1
+	pushc	2
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	1
+	pushc	1
+	add
+	popl	1
+	pushl	1
+	pushc	8
+	eq
+	brf	__97
+	pushc	0
+	popl	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__97:
+__96:
+	pushl	0
+	pushc	2
+	add
+	popl	0
+__94:
+	pushl	0
+	pushc	100
+	lt
+	brt	__93
+__95:
+	pushl	1
+	pushc	0
+	ne
+	brf	__98
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__98:
+	pushc	123456
+	pushc	10
+	mul
+	pushc	7
+	add
+	popl	0
+	jmp	__100
+__99:
+	pushl	0
+	call	_writeInteger
+	drop	1
+	pushc	4
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	105
+	putfa
+	dup
+	pushc	2
+	pushc	115
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	0
+	call	_isComposite
+	drop	1
+	pushr
+	brf	__102
+	pushc	21
+	newa
+	dup
+	pushc	0
+	pushc	100
+	putfa
+	dup
+	pushc	1
+	pushc	101
+	putfa
+	dup
+	pushc	2
+	pushc	102
+	putfa
+	dup
+	pushc	3
+	pushc	105
+	putfa
+	dup
+	pushc	4
+	pushc	110
+	putfa
+	dup
+	pushc	5
+	pushc	105
+	putfa
+	dup
+	pushc	6
+	pushc	116
+	putfa
+	dup
+	pushc	7
+	pushc	101
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	121
+	putfa
+	dup
+	pushc	10
+	pushc	32
+	putfa
+	dup
+	pushc	11
+	pushc	99
+	putfa
+	dup
+	pushc	12
+	pushc	111
+	putfa
+	dup
+	pushc	13
+	pushc	109
+	putfa
+	dup
+	pushc	14
+	pushc	112
+	putfa
+	dup
+	pushc	15
+	pushc	111
+	putfa
+	dup
+	pushc	16
+	pushc	115
+	putfa
+	dup
+	pushc	17
+	pushc	105
+	putfa
+	dup
+	pushc	18
+	pushc	116
+	putfa
+	dup
+	pushc	19
+	pushc	101
+	putfa
+	dup
+	pushc	20
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	jmp	__103
+__102:
+	pushc	15
+	newa
+	dup
+	pushc	0
+	pushc	112
+	putfa
+	dup
+	pushc	1
+	pushc	114
+	putfa
+	dup
+	pushc	2
+	pushc	111
+	putfa
+	dup
+	pushc	3
+	pushc	98
+	putfa
+	dup
+	pushc	4
+	pushc	97
+	putfa
+	dup
+	pushc	5
+	pushc	98
+	putfa
+	dup
+	pushc	6
+	pushc	108
+	putfa
+	dup
+	pushc	7
+	pushc	121
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	112
+	putfa
+	dup
+	pushc	10
+	pushc	114
+	putfa
+	dup
+	pushc	11
+	pushc	105
+	putfa
+	dup
+	pushc	12
+	pushc	109
+	putfa
+	dup
+	pushc	13
+	pushc	101
+	putfa
+	dup
+	pushc	14
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__103:
+	pushl	0
+	pushc	2
+	add
+	popl	0
+__100:
+	pushl	0
+	pushc	123460
+	pushc	10
+	mul
+	pushc	7
+	add
+	lt
+	brt	__99
+__101:
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__92:
+	rsf
+	ret
+
+//
+// Boolean provePrime(Integer)
+//
+_provePrime:
+	asf	0
+	pushc	0
+	popr
+	jmp	__104
+__104:
+	rsf
+	ret
+
+//
+// void testProvePrime()
+//
+_testProvePrime:
+	asf	0
+	pushc	13
+	newa
+	dup
+	pushc	0
+	pushc	112
+	putfa
+	dup
+	pushc	1
+	pushc	114
+	putfa
+	dup
+	pushc	2
+	pushc	111
+	putfa
+	dup
+	pushc	3
+	pushc	118
+	putfa
+	dup
+	pushc	4
+	pushc	101
+	putfa
+	dup
+	pushc	5
+	pushc	80
+	putfa
+	dup
+	pushc	6
+	pushc	114
+	putfa
+	dup
+	pushc	7
+	pushc	105
+	putfa
+	dup
+	pushc	8
+	pushc	109
+	putfa
+	dup
+	pushc	9
+	pushc	101
+	putfa
+	dup
+	pushc	10
+	pushc	40
+	putfa
+	dup
+	pushc	11
+	pushc	41
+	putfa
+	dup
+	pushc	12
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	13
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	22
+	newa
+	dup
+	pushc	0
+	pushc	60
+	putfa
+	dup
+	pushc	1
+	pushc	110
+	putfa
+	dup
+	pushc	2
+	pushc	111
+	putfa
+	dup
+	pushc	3
+	pushc	116
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	105
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	112
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	101
+	putfa
+	dup
+	pushc	10
+	pushc	109
+	putfa
+	dup
+	pushc	11
+	pushc	101
+	putfa
+	dup
+	pushc	12
+	pushc	110
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	100
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	121
+	putfa
+	dup
+	pushc	18
+	pushc	101
+	putfa
+	dup
+	pushc	19
+	pushc	116
+	putfa
+	dup
+	pushc	20
+	pushc	62
+	putfa
+	dup
+	pushc	21
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__105:
+	rsf
+	ret
+
+//
+// Integer findFactor1(Integer)
+//
+_findFactor1:
+	asf	9
+	pushc	2
+	popl	0
+	pushc	2
+	popl	1
+	pushc	2
+	popl	2
+	pushc	1
+	popl	3
+	pushc	1
+	popl	4
+	pushc	1
+	popl	5
+	pushc	0
+	popl	6
+	jmp	__108
+__107:
+	pushl	1
+	pushl	1
+	mul
+	pushc	1
+	add
+	pushl	-3
+	mod
+	popl	1
+	pushl	5
+	pushl	2
+	pushl	1
+	sub
+	mul
+	pushl	-3
+	mod
+	popl	5
+	pushl	6
+	pushc	1
+	add
+	popl	6
+	pushl	6
+	pushc	20
+	eq
+	brf	__110
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__111
+	jmp	__109
+__111:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__110:
+	pushl	3
+	pushc	1
+	sub
+	popl	3
+	pushl	3
+	pushc	0
+	eq
+	brf	__112
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__113
+	jmp	__109
+__113:
+	pushl	1
+	popl	2
+	pushl	4
+	popl	3
+	pushc	2
+	pushl	4
+	mul
+	popl	4
+	pushc	0
+	popl	8
+	jmp	__115
+__114:
+	pushl	1
+	pushl	1
+	mul
+	pushc	1
+	add
+	pushl	-3
+	mod
+	popl	1
+	pushl	8
+	pushc	1
+	add
+	popl	8
+__115:
+	pushl	8
+	pushl	3
+	lt
+	brt	__114
+__116:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__112:
+__108:
+	pushc	1
+	brt	__107
+__109:
+__117:
+	pushl	0
+	pushl	0
+	mul
+	pushc	1
+	add
+	pushl	-3
+	mod
+	popl	0
+	pushl	2
+	pushl	0
+	sub
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	eq
+	brt	__117
+__118:
+	pushl	7
+	pushl	-3
+	lt
+	brf	__119
+	pushl	7
+	popr
+	jmp	__106
+	jmp	__120
+__119:
+	pushc	0
+	popr
+	jmp	__106
+__120:
+__106:
+	rsf
+	ret
+
+//
+// Integer findFactor2(Integer)
+//
+_findFactor2:
+	asf	9
+	pushc	2
+	popl	0
+	pushc	2
+	popl	1
+	pushc	2
+	popl	2
+	pushc	1
+	popl	3
+	pushc	1
+	popl	4
+	pushc	1
+	popl	5
+	pushc	0
+	popl	6
+	jmp	__123
+__122:
+	pushl	1
+	pushl	1
+	mul
+	pushc	1
+	sub
+	pushl	-3
+	mod
+	popl	1
+	pushl	5
+	pushl	2
+	pushl	1
+	sub
+	mul
+	pushl	-3
+	mod
+	popl	5
+	pushl	6
+	pushc	1
+	add
+	popl	6
+	pushl	6
+	pushc	20
+	eq
+	brf	__125
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__126
+	jmp	__124
+__126:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__125:
+	pushl	3
+	pushc	1
+	sub
+	popl	3
+	pushl	3
+	pushc	0
+	eq
+	brf	__127
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__128
+	jmp	__124
+__128:
+	pushl	1
+	popl	2
+	pushl	4
+	popl	3
+	pushc	2
+	pushl	4
+	mul
+	popl	4
+	pushc	0
+	popl	8
+	jmp	__130
+__129:
+	pushl	1
+	pushl	1
+	mul
+	pushc	1
+	sub
+	pushl	-3
+	mod
+	popl	1
+	pushl	8
+	pushc	1
+	add
+	popl	8
+__130:
+	pushl	8
+	pushl	3
+	lt
+	brt	__129
+__131:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__127:
+__123:
+	pushc	1
+	brt	__122
+__124:
+__132:
+	pushl	0
+	pushl	0
+	mul
+	pushc	1
+	sub
+	pushl	-3
+	mod
+	popl	0
+	pushl	2
+	pushl	0
+	sub
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	eq
+	brt	__132
+__133:
+	pushl	7
+	pushl	-3
+	lt
+	brf	__134
+	pushl	7
+	popr
+	jmp	__121
+	jmp	__135
+__134:
+	pushc	0
+	popr
+	jmp	__121
+__135:
+__121:
+	rsf
+	ret
+
+//
+// Integer findFactor3(Integer)
+//
+_findFactor3:
+	asf	9
+	pushc	2
+	popl	0
+	pushc	2
+	popl	1
+	pushc	2
+	popl	2
+	pushc	1
+	popl	3
+	pushc	1
+	popl	4
+	pushc	1
+	popl	5
+	pushc	0
+	popl	6
+	jmp	__138
+__137:
+	pushl	1
+	pushl	1
+	mul
+	pushc	3
+	add
+	pushl	-3
+	mod
+	popl	1
+	pushl	5
+	pushl	2
+	pushl	1
+	sub
+	mul
+	pushl	-3
+	mod
+	popl	5
+	pushl	6
+	pushc	1
+	add
+	popl	6
+	pushl	6
+	pushc	20
+	eq
+	brf	__140
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__141
+	jmp	__139
+__141:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__140:
+	pushl	3
+	pushc	1
+	sub
+	popl	3
+	pushl	3
+	pushc	0
+	eq
+	brf	__142
+	pushl	5
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	gt
+	brf	__143
+	jmp	__139
+__143:
+	pushl	1
+	popl	2
+	pushl	4
+	popl	3
+	pushc	2
+	pushl	4
+	mul
+	popl	4
+	pushc	0
+	popl	8
+	jmp	__145
+__144:
+	pushl	1
+	pushl	1
+	mul
+	pushc	3
+	add
+	pushl	-3
+	mod
+	popl	1
+	pushl	8
+	pushc	1
+	add
+	popl	8
+__145:
+	pushl	8
+	pushl	3
+	lt
+	brt	__144
+__146:
+	pushl	1
+	popl	0
+	pushc	0
+	popl	6
+__142:
+__138:
+	pushc	1
+	brt	__137
+__139:
+__147:
+	pushl	0
+	pushl	0
+	mul
+	pushc	3
+	add
+	pushl	-3
+	mod
+	popl	0
+	pushl	2
+	pushl	0
+	sub
+	pushl	-3
+	call	_GCD
+	drop	2
+	pushr
+	popl	7
+	pushl	7
+	pushc	1
+	eq
+	brt	__147
+__148:
+	pushl	7
+	pushl	-3
+	lt
+	brf	__149
+	pushl	7
+	popr
+	jmp	__136
+	jmp	__150
+__149:
+	pushc	0
+	popr
+	jmp	__136
+__150:
+__136:
+	rsf
+	ret
+
+//
+// Integer findFactor(Integer)
+//
+_findFactor:
+	asf	1
+	pushl	-3
+	call	_findFactor1
+	drop	1
+	pushr
+	popl	0
+	pushl	0
+	pushc	0
+	ne
+	brf	__152
+	pushl	0
+	popr
+	jmp	__151
+__152:
+	pushl	-3
+	call	_findFactor2
+	drop	1
+	pushr
+	popl	0
+	pushl	0
+	pushc	0
+	ne
+	brf	__153
+	pushl	0
+	popr
+	jmp	__151
+__153:
+	pushl	-3
+	call	_findFactor3
+	drop	1
+	pushr
+	popl	0
+	pushl	0
+	popr
+	jmp	__151
+__151:
+	rsf
+	ret
+
+//
+// void testFindFactor()
+//
+_testFindFactor:
+	asf	0
+	pushc	13
+	newa
+	dup
+	pushc	0
+	pushc	102
+	putfa
+	dup
+	pushc	1
+	pushc	105
+	putfa
+	dup
+	pushc	2
+	pushc	110
+	putfa
+	dup
+	pushc	3
+	pushc	100
+	putfa
+	dup
+	pushc	4
+	pushc	70
+	putfa
+	dup
+	pushc	5
+	pushc	97
+	putfa
+	dup
+	pushc	6
+	pushc	99
+	putfa
+	dup
+	pushc	7
+	pushc	116
+	putfa
+	dup
+	pushc	8
+	pushc	111
+	putfa
+	dup
+	pushc	9
+	pushc	114
+	putfa
+	dup
+	pushc	10
+	pushc	40
+	putfa
+	dup
+	pushc	11
+	pushc	41
+	putfa
+	dup
+	pushc	12
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	13
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	8
+	newa
+	dup
+	pushc	0
+	pushc	53
+	putfa
+	dup
+	pushc	1
+	pushc	42
+	putfa
+	dup
+	pushc	2
+	pushc	53
+	putfa
+	dup
+	pushc	3
+	pushc	42
+	putfa
+	dup
+	pushc	4
+	pushc	53
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	61
+	putfa
+	dup
+	pushc	7
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	5
+	pushc	5
+	mul
+	pushc	5
+	mul
+	call	_writeInteger
+	drop	1
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	105
+	putfa
+	dup
+	pushc	2
+	pushc	115
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	97
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	117
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	116
+	putfa
+	dup
+	pushc	10
+	pushc	105
+	putfa
+	dup
+	pushc	11
+	pushc	112
+	putfa
+	dup
+	pushc	12
+	pushc	108
+	putfa
+	dup
+	pushc	13
+	pushc	101
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	111
+	putfa
+	dup
+	pushc	16
+	pushc	102
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	5
+	pushc	5
+	mul
+	pushc	5
+	mul
+	call	_findFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	17
+	newa
+	dup
+	pushc	0
+	pushc	52
+	putfa
+	dup
+	pushc	1
+	pushc	52
+	putfa
+	dup
+	pushc	2
+	pushc	50
+	putfa
+	dup
+	pushc	3
+	pushc	49
+	putfa
+	dup
+	pushc	4
+	pushc	42
+	putfa
+	dup
+	pushc	5
+	pushc	53
+	putfa
+	dup
+	pushc	6
+	pushc	55
+	putfa
+	dup
+	pushc	7
+	pushc	52
+	putfa
+	dup
+	pushc	8
+	pushc	51
+	putfa
+	dup
+	pushc	9
+	pushc	42
+	putfa
+	dup
+	pushc	10
+	pushc	55
+	putfa
+	dup
+	pushc	11
+	pushc	54
+	putfa
+	dup
+	pushc	12
+	pushc	57
+	putfa
+	dup
+	pushc	13
+	pushc	57
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	61
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	4421
+	pushc	5743
+	mul
+	pushc	7699
+	mul
+	call	_writeInteger
+	drop	1
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	105
+	putfa
+	dup
+	pushc	2
+	pushc	115
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	97
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	117
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	116
+	putfa
+	dup
+	pushc	10
+	pushc	105
+	putfa
+	dup
+	pushc	11
+	pushc	112
+	putfa
+	dup
+	pushc	12
+	pushc	108
+	putfa
+	dup
+	pushc	13
+	pushc	101
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	111
+	putfa
+	dup
+	pushc	16
+	pushc	102
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	4421
+	pushc	5743
+	mul
+	pushc	7699
+	mul
+	call	_findFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	999900
+	pushc	1000000
+	mul
+	pushc	9999
+	add
+	pushc	10000
+	mul
+	pushc	1
+	add
+	call	_writeInteger
+	drop	1
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	105
+	putfa
+	dup
+	pushc	2
+	pushc	115
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	97
+	putfa
+	dup
+	pushc	5
+	pushc	32
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	117
+	putfa
+	dup
+	pushc	8
+	pushc	108
+	putfa
+	dup
+	pushc	9
+	pushc	116
+	putfa
+	dup
+	pushc	10
+	pushc	105
+	putfa
+	dup
+	pushc	11
+	pushc	112
+	putfa
+	dup
+	pushc	12
+	pushc	108
+	putfa
+	dup
+	pushc	13
+	pushc	101
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	111
+	putfa
+	dup
+	pushc	16
+	pushc	102
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushc	999900
+	pushc	1000000
+	mul
+	pushc	9999
+	add
+	pushc	10000
+	mul
+	pushc	1
+	add
+	call	_findFactor
+	drop	1
+	pushr
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__154:
+	rsf
+	ret
+
+//
+// record { Integer value; List next; } factorize(Integer, Boolean)
+//
+_factorize:
+	asf	5
+	pushl	-3
+	brf	__156
+	pushc	10
+	newa
+	dup
+	pushc	0
+	pushc	102
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	99
+	putfa
+	dup
+	pushc	3
+	pushc	116
+	putfa
+	dup
+	pushc	4
+	pushc	111
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	105
+	putfa
+	dup
+	pushc	7
+	pushc	122
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	40
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	call	_writeInteger
+	drop	1
+	pushc	2
+	newa
+	dup
+	pushc	0
+	pushc	41
+	putfa
+	dup
+	pushc	1
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__156:
+	pushn
+	popl	0
+	jmp	__158
+__157:
+	pushl	-4
+	call	_smallPrimeFactor
+	drop	1
+	pushr
+	popl	1
+	pushl	1
+	pushc	0
+	eq
+	brf	__160
+	pushl	-4
+	pushg	0
+	pushg	0
+	mul
+	lt
+	brf	__161
+	pushl	-4
+	popl	1
+	jmp	__162
+__161:
+	jmp	__159
+__162:
+__160:
+	pushl	-3
+	brf	__163
+	pushc	28
+	newa
+	dup
+	pushc	0
+	pushc	100
+	putfa
+	dup
+	pushc	1
+	pushc	101
+	putfa
+	dup
+	pushc	2
+	pushc	116
+	putfa
+	dup
+	pushc	3
+	pushc	101
+	putfa
+	dup
+	pushc	4
+	pushc	99
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	101
+	putfa
+	dup
+	pushc	7
+	pushc	100
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	115
+	putfa
+	dup
+	pushc	10
+	pushc	109
+	putfa
+	dup
+	pushc	11
+	pushc	97
+	putfa
+	dup
+	pushc	12
+	pushc	108
+	putfa
+	dup
+	pushc	13
+	pushc	108
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	112
+	putfa
+	dup
+	pushc	16
+	pushc	114
+	putfa
+	dup
+	pushc	17
+	pushc	105
+	putfa
+	dup
+	pushc	18
+	pushc	109
+	putfa
+	dup
+	pushc	19
+	pushc	101
+	putfa
+	dup
+	pushc	20
+	pushc	32
+	putfa
+	dup
+	pushc	21
+	pushc	102
+	putfa
+	dup
+	pushc	22
+	pushc	97
+	putfa
+	dup
+	pushc	23
+	pushc	99
+	putfa
+	dup
+	pushc	24
+	pushc	116
+	putfa
+	dup
+	pushc	25
+	pushc	111
+	putfa
+	dup
+	pushc	26
+	pushc	114
+	putfa
+	dup
+	pushc	27
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	1
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__163:
+	pushl	1
+	pushl	0
+	call	_addToList
+	drop	2
+	pushr
+	popl	0
+	pushl	-4
+	pushl	1
+	div
+	popl	-4
+__158:
+	pushl	-4
+	pushc	1
+	gt
+	brt	__157
+__159:
+	pushl	-4
+	pushc	1
+	eq
+	brf	__164
+	pushl	-3
+	brf	__165
+	pushc	42
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	104
+	putfa
+	dup
+	pushc	2
+	pushc	101
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	110
+	putfa
+	dup
+	pushc	5
+	pushc	117
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	98
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	114
+	putfa
+	dup
+	pushc	10
+	pushc	32
+	putfa
+	dup
+	pushc	11
+	pushc	104
+	putfa
+	dup
+	pushc	12
+	pushc	97
+	putfa
+	dup
+	pushc	13
+	pushc	115
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	98
+	putfa
+	dup
+	pushc	16
+	pushc	101
+	putfa
+	dup
+	pushc	17
+	pushc	101
+	putfa
+	dup
+	pushc	18
+	pushc	110
+	putfa
+	dup
+	pushc	19
+	pushc	32
+	putfa
+	dup
+	pushc	20
+	pushc	99
+	putfa
+	dup
+	pushc	21
+	pushc	111
+	putfa
+	dup
+	pushc	22
+	pushc	109
+	putfa
+	dup
+	pushc	23
+	pushc	112
+	putfa
+	dup
+	pushc	24
+	pushc	108
+	putfa
+	dup
+	pushc	25
+	pushc	101
+	putfa
+	dup
+	pushc	26
+	pushc	116
+	putfa
+	dup
+	pushc	27
+	pushc	101
+	putfa
+	dup
+	pushc	28
+	pushc	108
+	putfa
+	dup
+	pushc	29
+	pushc	121
+	putfa
+	dup
+	pushc	30
+	pushc	32
+	putfa
+	dup
+	pushc	31
+	pushc	102
+	putfa
+	dup
+	pushc	32
+	pushc	97
+	putfa
+	dup
+	pushc	33
+	pushc	99
+	putfa
+	dup
+	pushc	34
+	pushc	116
+	putfa
+	dup
+	pushc	35
+	pushc	111
+	putfa
+	dup
+	pushc	36
+	pushc	114
+	putfa
+	dup
+	pushc	37
+	pushc	105
+	putfa
+	dup
+	pushc	38
+	pushc	122
+	putfa
+	dup
+	pushc	39
+	pushc	101
+	putfa
+	dup
+	pushc	40
+	pushc	100
+	putfa
+	dup
+	pushc	41
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__165:
+	pushl	0
+	popr
+	jmp	__155
+__164:
+	pushl	-3
+	brf	__166
+	pushc	41
+	newa
+	dup
+	pushc	0
+	pushc	105
+	putfa
+	dup
+	pushc	1
+	pushc	110
+	putfa
+	dup
+	pushc	2
+	pushc	116
+	putfa
+	dup
+	pushc	3
+	pushc	101
+	putfa
+	dup
+	pushc	4
+	pushc	114
+	putfa
+	dup
+	pushc	5
+	pushc	105
+	putfa
+	dup
+	pushc	6
+	pushc	109
+	putfa
+	dup
+	pushc	7
+	pushc	32
+	putfa
+	dup
+	pushc	8
+	pushc	114
+	putfa
+	dup
+	pushc	9
+	pushc	101
+	putfa
+	dup
+	pushc	10
+	pushc	115
+	putfa
+	dup
+	pushc	11
+	pushc	117
+	putfa
+	dup
+	pushc	12
+	pushc	108
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	58
+	putfa
+	dup
+	pushc	15
+	pushc	10
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	32
+	putfa
+	dup
+	pushc	20
+	pushc	116
+	putfa
+	dup
+	pushc	21
+	pushc	104
+	putfa
+	dup
+	pushc	22
+	pushc	101
+	putfa
+	dup
+	pushc	23
+	pushc	32
+	putfa
+	dup
+	pushc	24
+	pushc	114
+	putfa
+	dup
+	pushc	25
+	pushc	101
+	putfa
+	dup
+	pushc	26
+	pushc	109
+	putfa
+	dup
+	pushc	27
+	pushc	97
+	putfa
+	dup
+	pushc	28
+	pushc	105
+	putfa
+	dup
+	pushc	29
+	pushc	110
+	putfa
+	dup
+	pushc	30
+	pushc	105
+	putfa
+	dup
+	pushc	31
+	pushc	110
+	putfa
+	dup
+	pushc	32
+	pushc	103
+	putfa
+	dup
+	pushc	33
+	pushc	32
+	putfa
+	dup
+	pushc	34
+	pushc	102
+	putfa
+	dup
+	pushc	35
+	pushc	97
+	putfa
+	dup
+	pushc	36
+	pushc	99
+	putfa
+	dup
+	pushc	37
+	pushc	116
+	putfa
+	dup
+	pushc	38
+	pushc	111
+	putfa
+	dup
+	pushc	39
+	pushc	114
+	putfa
+	dup
+	pushc	40
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	call	_writeInteger
+	drop	1
+	pushc	38
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	dup
+	pushc	2
+	pushc	32
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	100
+	putfa
+	dup
+	pushc	6
+	pushc	111
+	putfa
+	dup
+	pushc	7
+	pushc	101
+	putfa
+	dup
+	pushc	8
+	pushc	115
+	putfa
+	dup
+	pushc	9
+	pushc	110
+	putfa
+	dup
+	pushc	10
+	pushc	39
+	putfa
+	dup
+	pushc	11
+	pushc	116
+	putfa
+	dup
+	pushc	12
+	pushc	32
+	putfa
+	dup
+	pushc	13
+	pushc	104
+	putfa
+	dup
+	pushc	14
+	pushc	97
+	putfa
+	dup
+	pushc	15
+	pushc	118
+	putfa
+	dup
+	pushc	16
+	pushc	101
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	dup
+	pushc	18
+	pushc	97
+	putfa
+	dup
+	pushc	19
+	pushc	110
+	putfa
+	dup
+	pushc	20
+	pushc	121
+	putfa
+	dup
+	pushc	21
+	pushc	32
+	putfa
+	dup
+	pushc	22
+	pushc	112
+	putfa
+	dup
+	pushc	23
+	pushc	114
+	putfa
+	dup
+	pushc	24
+	pushc	105
+	putfa
+	dup
+	pushc	25
+	pushc	109
+	putfa
+	dup
+	pushc	26
+	pushc	101
+	putfa
+	dup
+	pushc	27
+	pushc	32
+	putfa
+	dup
+	pushc	28
+	pushc	102
+	putfa
+	dup
+	pushc	29
+	pushc	97
+	putfa
+	dup
+	pushc	30
+	pushc	99
+	putfa
+	dup
+	pushc	31
+	pushc	116
+	putfa
+	dup
+	pushc	32
+	pushc	111
+	putfa
+	dup
+	pushc	33
+	pushc	114
+	putfa
+	dup
+	pushc	34
+	pushc	115
+	putfa
+	dup
+	pushc	35
+	pushc	32
+	putfa
+	dup
+	pushc	36
+	pushc	60
+	putfa
+	dup
+	pushc	37
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushg	0
+	call	_writeInteger
+	drop	1
+	pushc	5
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	dup
+	pushc	2
+	pushc	32
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+__166:
+	pushl	-4
+	call	_isComposite
+	drop	1
+	pushr
+	brf	__167
+	pushl	-3
+	brf	__169
+	pushc	28
+	newa
+	dup
+	pushc	0
+	pushc	98
+	putfa
+	dup
+	pushc	1
+	pushc	117
+	putfa
+	dup
+	pushc	2
+	pushc	116
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	105
+	putfa
+	dup
+	pushc	5
+	pushc	115
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	100
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	102
+	putfa
+	dup
+	pushc	10
+	pushc	105
+	putfa
+	dup
+	pushc	11
+	pushc	110
+	putfa
+	dup
+	pushc	12
+	pushc	105
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	108
+	putfa
+	dup
+	pushc	16
+	pushc	121
+	putfa
+	dup
+	pushc	17
+	pushc	32
+	putfa
+	dup
+	pushc	18
+	pushc	99
+	putfa
+	dup
+	pushc	19
+	pushc	111
+	putfa
+	dup
+	pushc	20
+	pushc	109
+	putfa
+	dup
+	pushc	21
+	pushc	112
+	putfa
+	dup
+	pushc	22
+	pushc	111
+	putfa
+	dup
+	pushc	23
+	pushc	115
+	putfa
+	dup
+	pushc	24
+	pushc	105
+	putfa
+	dup
+	pushc	25
+	pushc	116
+	putfa
+	dup
+	pushc	26
+	pushc	101
+	putfa
+	dup
+	pushc	27
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__169:
+	pushl	-4
+	call	_findFactor
+	drop	1
+	pushr
+	popl	2
+	pushl	2
+	pushc	0
+	eq
+	brf	__170
+	pushc	17
+	newa
+	dup
+	pushc	0
+	pushc	99
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	110
+	putfa
+	dup
+	pushc	3
+	pushc	110
+	putfa
+	dup
+	pushc	4
+	pushc	111
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	102
+	putfa
+	dup
+	pushc	8
+	pushc	97
+	putfa
+	dup
+	pushc	9
+	pushc	99
+	putfa
+	dup
+	pushc	10
+	pushc	116
+	putfa
+	dup
+	pushc	11
+	pushc	111
+	putfa
+	dup
+	pushc	12
+	pushc	114
+	putfa
+	dup
+	pushc	13
+	pushc	105
+	putfa
+	dup
+	pushc	14
+	pushc	122
+	putfa
+	dup
+	pushc	15
+	pushc	101
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	call	_writeInteger
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	44
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	dup
+	pushc	2
+	pushc	103
+	putfa
+	dup
+	pushc	3
+	pushc	105
+	putfa
+	dup
+	pushc	4
+	pushc	118
+	putfa
+	dup
+	pushc	5
+	pushc	105
+	putfa
+	dup
+	pushc	6
+	pushc	110
+	putfa
+	dup
+	pushc	7
+	pushc	103
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	117
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	pushl	0
+	call	_addToList
+	drop	2
+	pushr
+	popl	0
+	jmp	__171
+__170:
+	pushl	-4
+	pushl	2
+	div
+	popl	3
+	pushl	-3
+	brf	__172
+	pushc	30
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	104
+	putfa
+	dup
+	pushc	2
+	pushc	105
+	putfa
+	dup
+	pushc	3
+	pushc	115
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	110
+	putfa
+	dup
+	pushc	6
+	pushc	117
+	putfa
+	dup
+	pushc	7
+	pushc	109
+	putfa
+	dup
+	pushc	8
+	pushc	98
+	putfa
+	dup
+	pushc	9
+	pushc	101
+	putfa
+	dup
+	pushc	10
+	pushc	114
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	99
+	putfa
+	dup
+	pushc	13
+	pushc	97
+	putfa
+	dup
+	pushc	14
+	pushc	110
+	putfa
+	dup
+	pushc	15
+	pushc	32
+	putfa
+	dup
+	pushc	16
+	pushc	98
+	putfa
+	dup
+	pushc	17
+	pushc	101
+	putfa
+	dup
+	pushc	18
+	pushc	32
+	putfa
+	dup
+	pushc	19
+	pushc	115
+	putfa
+	dup
+	pushc	20
+	pushc	112
+	putfa
+	dup
+	pushc	21
+	pushc	108
+	putfa
+	dup
+	pushc	22
+	pushc	105
+	putfa
+	dup
+	pushc	23
+	pushc	116
+	putfa
+	dup
+	pushc	24
+	pushc	32
+	putfa
+	dup
+	pushc	25
+	pushc	105
+	putfa
+	dup
+	pushc	26
+	pushc	110
+	putfa
+	dup
+	pushc	27
+	pushc	116
+	putfa
+	dup
+	pushc	28
+	pushc	111
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	2
+	call	_writeInteger
+	drop	1
+	pushc	5
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	110
+	putfa
+	dup
+	pushc	3
+	pushc	100
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	3
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__172:
+	pushl	2
+	pushl	-3
+	call	_factorize
+	drop	2
+	pushr
+	popl	4
+	pushl	4
+	pushl	0
+	call	_fuseLists
+	drop	2
+	pushr
+	popl	0
+	pushl	3
+	pushl	-3
+	call	_factorize
+	drop	2
+	pushr
+	popl	4
+	pushl	4
+	pushl	0
+	call	_fuseLists
+	drop	2
+	pushr
+	popl	0
+__171:
+	jmp	__168
+__167:
+	pushl	-3
+	brf	__173
+	pushc	27
+	newa
+	dup
+	pushc	0
+	pushc	97
+	putfa
+	dup
+	pushc	1
+	pushc	110
+	putfa
+	dup
+	pushc	2
+	pushc	100
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	105
+	putfa
+	dup
+	pushc	5
+	pushc	115
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	118
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	114
+	putfa
+	dup
+	pushc	10
+	pushc	121
+	putfa
+	dup
+	pushc	11
+	pushc	32
+	putfa
+	dup
+	pushc	12
+	pushc	112
+	putfa
+	dup
+	pushc	13
+	pushc	114
+	putfa
+	dup
+	pushc	14
+	pushc	111
+	putfa
+	dup
+	pushc	15
+	pushc	98
+	putfa
+	dup
+	pushc	16
+	pushc	97
+	putfa
+	dup
+	pushc	17
+	pushc	98
+	putfa
+	dup
+	pushc	18
+	pushc	108
+	putfa
+	dup
+	pushc	19
+	pushc	121
+	putfa
+	dup
+	pushc	20
+	pushc	32
+	putfa
+	dup
+	pushc	21
+	pushc	112
+	putfa
+	dup
+	pushc	22
+	pushc	114
+	putfa
+	dup
+	pushc	23
+	pushc	105
+	putfa
+	dup
+	pushc	24
+	pushc	109
+	putfa
+	dup
+	pushc	25
+	pushc	101
+	putfa
+	dup
+	pushc	26
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__173:
+	pushl	-4
+	call	_provePrime
+	drop	1
+	pushr
+	brf	__174
+	pushl	-3
+	brf	__176
+	pushc	17
+	newa
+	dup
+	pushc	0
+	pushc	116
+	putfa
+	dup
+	pushc	1
+	pushc	104
+	putfa
+	dup
+	pushc	2
+	pushc	101
+	putfa
+	dup
+	pushc	3
+	pushc	32
+	putfa
+	dup
+	pushc	4
+	pushc	112
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	105
+	putfa
+	dup
+	pushc	7
+	pushc	109
+	putfa
+	dup
+	pushc	8
+	pushc	97
+	putfa
+	dup
+	pushc	9
+	pushc	108
+	putfa
+	dup
+	pushc	10
+	pushc	105
+	putfa
+	dup
+	pushc	11
+	pushc	116
+	putfa
+	dup
+	pushc	12
+	pushc	121
+	putfa
+	dup
+	pushc	13
+	pushc	32
+	putfa
+	dup
+	pushc	14
+	pushc	111
+	putfa
+	dup
+	pushc	15
+	pushc	102
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	call	_writeInteger
+	drop	1
+	pushc	17
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	104
+	putfa
+	dup
+	pushc	2
+	pushc	97
+	putfa
+	dup
+	pushc	3
+	pushc	115
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	dup
+	pushc	5
+	pushc	98
+	putfa
+	dup
+	pushc	6
+	pushc	101
+	putfa
+	dup
+	pushc	7
+	pushc	101
+	putfa
+	dup
+	pushc	8
+	pushc	110
+	putfa
+	dup
+	pushc	9
+	pushc	32
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	114
+	putfa
+	dup
+	pushc	12
+	pushc	111
+	putfa
+	dup
+	pushc	13
+	pushc	118
+	putfa
+	dup
+	pushc	14
+	pushc	101
+	putfa
+	dup
+	pushc	15
+	pushc	110
+	putfa
+	dup
+	pushc	16
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__176:
+	jmp	__175
+__174:
+	pushc	30
+	newa
+	dup
+	pushc	0
+	pushc	99
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	110
+	putfa
+	dup
+	pushc	3
+	pushc	110
+	putfa
+	dup
+	pushc	4
+	pushc	111
+	putfa
+	dup
+	pushc	5
+	pushc	116
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	112
+	putfa
+	dup
+	pushc	8
+	pushc	114
+	putfa
+	dup
+	pushc	9
+	pushc	111
+	putfa
+	dup
+	pushc	10
+	pushc	118
+	putfa
+	dup
+	pushc	11
+	pushc	101
+	putfa
+	dup
+	pushc	12
+	pushc	32
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	104
+	putfa
+	dup
+	pushc	15
+	pushc	101
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	112
+	putfa
+	dup
+	pushc	18
+	pushc	114
+	putfa
+	dup
+	pushc	19
+	pushc	105
+	putfa
+	dup
+	pushc	20
+	pushc	109
+	putfa
+	dup
+	pushc	21
+	pushc	97
+	putfa
+	dup
+	pushc	22
+	pushc	108
+	putfa
+	dup
+	pushc	23
+	pushc	105
+	putfa
+	dup
+	pushc	24
+	pushc	116
+	putfa
+	dup
+	pushc	25
+	pushc	121
+	putfa
+	dup
+	pushc	26
+	pushc	32
+	putfa
+	dup
+	pushc	27
+	pushc	111
+	putfa
+	dup
+	pushc	28
+	pushc	102
+	putfa
+	dup
+	pushc	29
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	-4
+	call	_writeInteger
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	44
+	putfa
+	dup
+	pushc	1
+	pushc	32
+	putfa
+	dup
+	pushc	2
+	pushc	103
+	putfa
+	dup
+	pushc	3
+	pushc	105
+	putfa
+	dup
+	pushc	4
+	pushc	118
+	putfa
+	dup
+	pushc	5
+	pushc	105
+	putfa
+	dup
+	pushc	6
+	pushc	110
+	putfa
+	dup
+	pushc	7
+	pushc	103
+	putfa
+	dup
+	pushc	8
+	pushc	32
+	putfa
+	dup
+	pushc	9
+	pushc	117
+	putfa
+	dup
+	pushc	10
+	pushc	112
+	putfa
+	dup
+	pushc	11
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__175:
+	pushl	-4
+	pushl	0
+	call	_addToList
+	drop	2
+	pushr
+	popl	0
+__168:
+	pushl	0
+	popr
+	jmp	__155
+__155:
+	rsf
+	ret
+
+//
+// void testFactorize(Boolean)
+//
+_testFactorize:
+	asf	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	102
+	putfa
+	dup
+	pushc	1
+	pushc	97
+	putfa
+	dup
+	pushc	2
+	pushc	99
+	putfa
+	dup
+	pushc	3
+	pushc	116
+	putfa
+	dup
+	pushc	4
+	pushc	111
+	putfa
+	dup
+	pushc	5
+	pushc	114
+	putfa
+	dup
+	pushc	6
+	pushc	105
+	putfa
+	dup
+	pushc	7
+	pushc	122
+	putfa
+	dup
+	pushc	8
+	pushc	101
+	putfa
+	dup
+	pushc	9
+	pushc	40
+	putfa
+	dup
+	pushc	10
+	pushc	41
+	putfa
+	dup
+	pushc	11
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	12
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	7
+	call	_calcSmallPrimes
+	drop	1
+	call	_showSmallPrimes
+	pushc	18
+	newa
+	dup
+	pushc	0
+	pushc	51
+	putfa
+	dup
+	pushc	1
+	pushc	42
+	putfa
+	dup
+	pushc	2
+	pushc	53
+	putfa
+	dup
+	pushc	3
+	pushc	42
+	putfa
+	dup
+	pushc	4
+	pushc	55
+	putfa
+	dup
+	pushc	5
+	pushc	42
+	putfa
+	dup
+	pushc	6
+	pushc	55
+	putfa
+	dup
+	pushc	7
+	pushc	42
+	putfa
+	dup
+	pushc	8
+	pushc	49
+	putfa
+	dup
+	pushc	9
+	pushc	52
+	putfa
+	dup
+	pushc	10
+	pushc	49
+	putfa
+	dup
+	pushc	11
+	pushc	42
+	putfa
+	dup
+	pushc	12
+	pushc	52
+	putfa
+	dup
+	pushc	13
+	pushc	57
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	61
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	dup
+	pushc	17
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	3
+	pushc	5
+	mul
+	pushc	7
+	mul
+	pushc	7
+	mul
+	pushc	141
+	mul
+	pushc	49
+	mul
+	pushl	-3
+	call	_factorize
+	drop	2
+	pushr
+	popl	0
+	pushl	0
+	call	_sortList
+	drop	1
+	pushr
+	call	_showList
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__177:
+	rsf
+	ret
+
+//
+// void showBar()
+//
+_showBar:
+	asf	0
+	pushc	33
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	45
+	putfa
+	dup
+	pushc	14
+	pushc	45
+	putfa
+	dup
+	pushc	15
+	pushc	45
+	putfa
+	dup
+	pushc	16
+	pushc	45
+	putfa
+	dup
+	pushc	17
+	pushc	45
+	putfa
+	dup
+	pushc	18
+	pushc	45
+	putfa
+	dup
+	pushc	19
+	pushc	45
+	putfa
+	dup
+	pushc	20
+	pushc	45
+	putfa
+	dup
+	pushc	21
+	pushc	45
+	putfa
+	dup
+	pushc	22
+	pushc	45
+	putfa
+	dup
+	pushc	23
+	pushc	45
+	putfa
+	dup
+	pushc	24
+	pushc	45
+	putfa
+	dup
+	pushc	25
+	pushc	45
+	putfa
+	dup
+	pushc	26
+	pushc	45
+	putfa
+	dup
+	pushc	27
+	pushc	45
+	putfa
+	dup
+	pushc	28
+	pushc	45
+	putfa
+	dup
+	pushc	29
+	pushc	45
+	putfa
+	dup
+	pushc	30
+	pushc	45
+	putfa
+	dup
+	pushc	31
+	pushc	45
+	putfa
+	dup
+	pushc	32
+	pushc	45
+	putfa
+	call	_writeString
+	drop	1
+	pushc	32
+	newa
+	dup
+	pushc	0
+	pushc	45
+	putfa
+	dup
+	pushc	1
+	pushc	45
+	putfa
+	dup
+	pushc	2
+	pushc	45
+	putfa
+	dup
+	pushc	3
+	pushc	45
+	putfa
+	dup
+	pushc	4
+	pushc	45
+	putfa
+	dup
+	pushc	5
+	pushc	45
+	putfa
+	dup
+	pushc	6
+	pushc	45
+	putfa
+	dup
+	pushc	7
+	pushc	45
+	putfa
+	dup
+	pushc	8
+	pushc	45
+	putfa
+	dup
+	pushc	9
+	pushc	45
+	putfa
+	dup
+	pushc	10
+	pushc	45
+	putfa
+	dup
+	pushc	11
+	pushc	45
+	putfa
+	dup
+	pushc	12
+	pushc	45
+	putfa
+	dup
+	pushc	13
+	pushc	45
+	putfa
+	dup
+	pushc	14
+	pushc	45
+	putfa
+	dup
+	pushc	15
+	pushc	45
+	putfa
+	dup
+	pushc	16
+	pushc	45
+	putfa
+	dup
+	pushc	17
+	pushc	45
+	putfa
+	dup
+	pushc	18
+	pushc	45
+	putfa
+	dup
+	pushc	19
+	pushc	45
+	putfa
+	dup
+	pushc	20
+	pushc	45
+	putfa
+	dup
+	pushc	21
+	pushc	45
+	putfa
+	dup
+	pushc	22
+	pushc	45
+	putfa
+	dup
+	pushc	23
+	pushc	45
+	putfa
+	dup
+	pushc	24
+	pushc	45
+	putfa
+	dup
+	pushc	25
+	pushc	45
+	putfa
+	dup
+	pushc	26
+	pushc	45
+	putfa
+	dup
+	pushc	27
+	pushc	45
+	putfa
+	dup
+	pushc	28
+	pushc	45
+	putfa
+	dup
+	pushc	29
+	pushc	45
+	putfa
+	dup
+	pushc	30
+	pushc	45
+	putfa
+	dup
+	pushc	31
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+__178:
+	rsf
+	ret
+
+//
+// void run(Boolean)
+//
+_run:
+	asf	4
+	pushc	10000
+	call	_calcSmallPrimes
+	drop	1
+	call	_showBar
+	pushc	1
+	popl	0
+	jmp	__181
+__180:
+	pushc	3
+	newa
+	dup
+	pushc	0
+	pushc	49
+	putfa
+	dup
+	pushc	1
+	pushc	48
+	putfa
+	dup
+	pushc	2
+	pushc	94
+	putfa
+	call	_writeString
+	drop	1
+	pushl	0
+	call	_writeInteger
+	drop	1
+	pushc	5
+	newa
+	dup
+	pushc	0
+	pushc	43
+	putfa
+	dup
+	pushc	1
+	pushc	49
+	putfa
+	dup
+	pushc	2
+	pushc	32
+	putfa
+	dup
+	pushc	3
+	pushc	61
+	putfa
+	dup
+	pushc	4
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	0
+	call	_computeTarget
+	drop	1
+	pushr
+	popl	1
+	pushl	1
+	call	_writeInteger
+	drop	1
+	pushc	4
+	newa
+	dup
+	pushc	0
+	pushc	32
+	putfa
+	dup
+	pushc	1
+	pushc	61
+	putfa
+	dup
+	pushc	2
+	pushc	32
+	putfa
+	dup
+	pushc	3
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushl	1
+	pushl	-3
+	call	_factorize
+	drop	2
+	pushr
+	popl	2
+	pushl	2
+	call	_sortList
+	drop	1
+	pushr
+	popl	2
+	pushl	2
+	call	_showList
+	drop	1
+	pushc	17
+	newa
+	dup
+	pushc	0
+	pushc	99
+	putfa
+	dup
+	pushc	1
+	pushc	104
+	putfa
+	dup
+	pushc	2
+	pushc	101
+	putfa
+	dup
+	pushc	3
+	pushc	99
+	putfa
+	dup
+	pushc	4
+	pushc	107
+	putfa
+	dup
+	pushc	5
+	pushc	58
+	putfa
+	dup
+	pushc	6
+	pushc	32
+	putfa
+	dup
+	pushc	7
+	pushc	112
+	putfa
+	dup
+	pushc	8
+	pushc	114
+	putfa
+	dup
+	pushc	9
+	pushc	111
+	putfa
+	dup
+	pushc	10
+	pushc	100
+	putfa
+	dup
+	pushc	11
+	pushc	117
+	putfa
+	dup
+	pushc	12
+	pushc	99
+	putfa
+	dup
+	pushc	13
+	pushc	116
+	putfa
+	dup
+	pushc	14
+	pushc	32
+	putfa
+	dup
+	pushc	15
+	pushc	61
+	putfa
+	dup
+	pushc	16
+	pushc	32
+	putfa
+	call	_writeString
+	drop	1
+	pushl	2
+	call	_evalList
+	drop	1
+	pushr
+	popl	3
+	pushl	3
+	call	_writeInteger
+	drop	1
+	pushc	1
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	call	_showBar
+	pushl	0
+	pushc	1
+	add
+	popl	0
+__181:
+	pushl	0
+	pushc	30
+	le
+	brt	__180
+__182:
+__179:
+	rsf
+	ret
+
+//
+// void tests(Boolean)
+//
+_tests:
+	asf	0
+	pushc	7
+	newa
+	dup
+	pushc	0
+	pushc	10
+	putfa
+	dup
+	pushc	1
+	pushc	84
+	putfa
+	dup
+	pushc	2
+	pushc	101
+	putfa
+	dup
+	pushc	3
+	pushc	115
+	putfa
+	dup
+	pushc	4
+	pushc	116
+	putfa
+	dup
+	pushc	5
+	pushc	115
+	putfa
+	dup
+	pushc	6
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	pushc	7
+	newa
+	dup
+	pushc	0
+	pushc	61
+	putfa
+	dup
+	pushc	1
+	pushc	61
+	putfa
+	dup
+	pushc	2
+	pushc	61
+	putfa
+	dup
+	pushc	3
+	pushc	61
+	putfa
+	dup
+	pushc	4
+	pushc	61
+	putfa
+	dup
+	pushc	5
+	pushc	10
+	putfa
+	dup
+	pushc	6
+	pushc	10
+	putfa
+	call	_writeString
+	drop	1
+	call	_testComputeTarget
+	call	_testCalcSmallPrimes
+	call	_testSmallPrimeFactor
+	call	_testPowerMod
+	call	_testGCD
+	call	_testIsComposite
+	call	_testProvePrime
+	call	_testFindFactor
+	pushl	-3
+	call	_testFactorize
+	drop	1
+__183:
+	rsf
+	ret
+
+//
+// void main()
+//
+_main:
+	asf	0
+	pushc	1
+	call	_run
+	drop	1
+__184:
+	rsf
+	ret