#! /usr/bin/bc -q

for (b = 2; b <= 16; ++b) {
	if (b == 10) continue
	obase = 10
	print "ibase = A; ibase = ", b, "\n"
	print "\qibase = \q\n"
	b
	obase = b
	for (i = 0; i <= 4096; ++i) {
		i
		print "0.", i, "\n"
		print ".", i, "\n"
		print "1.", i, "\n"
		print i, ".", "\n"
		print i, ".", i, "\n"
	}
}

halt
