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