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[0] * i) * a[j] 16 a[0] * (a[j] * i) 17 (a[0] * i) * (a[j] * i) 18 } 19} 20