(let1 x(ref'(0 0[3 3 3][5 14 5 2]0[9 140 304 482 252])(modulo(read)9))(dolist(i(cdr x))(format #t"~v,'0b
"(car x)i)))