((^a(dotimes(i 9)(format #t"~vd
"(+ i 9)(*(inc! a(expt 10 i))a))))0)