define h() {
ibase=obase=0F+1; return(.) }
define d() {
ibase=obase=0A; return(.) }
