1#! /usr/bin/bc -gq 2 3define i(x) { 4 ibase=x 5 return ibase 6} 7 8define o(x) { 9 obase=x 10 return obase 11} 12 13define r(x) { 14 scale=x 15 return scale 16} 17 18i(11) 19ibase 20o(12) 21obase 22r(15) 23scale 24