1254721Semaste#! /usr/bin/bc -q 2254721Semaste 3254721Semastel = line_length() 4254721Semaste 5254721Semastemax = 128 6254721Semastescale = 0 7254721Semaste 8254721Semasteobase=2 9254721Semaste2^99 10254721Semaste2^100 11254721Semaste2^105 12254721Semaste 13254721Semastefor (i = 2; i < max; ++i) 14254721Semaste{ 15254721Semaste obase=i 16254721Semaste if (obase < 17) 17254721Semaste { 18254721Semaste 1 * i^(l - 1) 19254721Semaste 1 * i^l 20254721Semaste 1 * i^(l + 1) 21254721Semaste } 22254721Semaste else if (obase >= 17 && obase <= 100) 23254721Semaste { 24254721Semaste l2 = l/3 25254721Semaste 1 * i^(l2 - 1) 26254721Semaste 1 * i^l2 27254721Semaste 1 * i^(l2 + 1) 28254721Semaste } 29254721Semaste else 30254721Semaste { 31254721Semaste l2 = l/4 32254721Semaste 1 * i^(l2 - 1) 33254721Semaste 1 * i^l2 34254721Semaste 1 * i^(l2 + 1) 35254721Semaste } 36254721Semaste} 37254721Semaste 38254721Semasteif (maxobase() > 2^18) 39254721Semaste{ 40254721Semaste obase=2^18 41254721Semaste 1 * i^(100) 42254721Semaste 1 * i^(101) 43254721Semaste 1 * i^(103) 44254721Semaste} 45254721Semasteelse 46254721Semaste{ 47254721Semaste print " 065536 000000 000000 000000 000000 000000 000000 000000 000000 0000\\\n" 48254721Semaste print "00 000000 000000 000000 000000 000000 000000 000000 000000 000000 00\\\n" 49254721Semaste print "0000 000000 000000 000000 000000 000000 000000 000000 000000 000000 \\\n" 50254721Semaste print "000000 000000 000000 000000 000000 000000 000000 000000 000000 000000\n" 51254721Semaste print " 000032 000000 000000 000000 000000 000000 000000 000000 000000 0000\\\n" 52254721Semaste print "00 000000 000000 000000 000000 000000 000000 000000 000000 000000 00\\\n" 53254721Semaste print "0000 000000 000000 000000 000000 000000 000000 000000 000000 000000 \\\n" 54254721Semaste print "000000 000000 000000 000000 000000 000000 000000 000000 000000 00000\\\n" 55254721Semaste print "0 000000\n" 56254721Semaste print " 000002 000000 000000 000000 000000 000000 000000 000000 000000 0000\\\n" 57254721Semaste print "00 000000 000000 000000 000000 000000 000000 000000 000000 000000 00\\\n" 58254721Semaste print "0000 000000 000000 000000 000000 000000 000000 000000 000000 000000 \\\n" 59254721Semaste print "000000 000000 000000 000000 000000 000000 000000 000000 000000 00000\\\n" 60254721Semaste print "0 000000 000000\n" 61254721Semaste} 62254721Semaste 63254721Semastehalt 64254721Semaste