(do'(n 0(case(read)(d(max(1- n)0))(i(1+ n))(s(*(if(= n 16)0 n)n))(o(format t"~D
"n)n)))'1)