((rec,r((^t(print t),t)(~`(_,(+ r 1),(/ r 2),(* r r))(div0(read-byte)29))))0)