(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)))'!)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page