for(n in r<-0:104)write(sum(n%/%2^r%%2*3^r),1)