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