(while:prn:expt 2(+(trunc:/(log:read)log.2)1))