((rec'i(let*((t(logxor #0=(-(read-byte)48)#0#i))(k(if(< 0 t 5)t i)))(print k)#0#'k))1)