((rec'i(let*(`#0=(-(read-byte)48),#0#(k(if(= . `i). ,(if(= . ,i). `i))))(print k)#0#'k))1)