1#! /usr/bin/bc -lq 2 3scale = 20 4x = 1234567890 / scale 5len = length(x) + 1 + scale 6 7for (i = 0; i <= len; ++i) { 8 a[i] = x * (10^i) 9 a[i] 10} 11 12for (i = 1; i <= 10000; ++i) { 13 for (j = 0; j < len; ++j) { 14 a[0] * a[j] 15 a[i] * a[j] 16 (a[0] * i) * a[j] 17 a[0] * (a[j] * i) 18 (a[0] * i) * (a[j] * i) 19 } 20} 21