(loop(#0=format t"~A
"(apply'+(map'list'digit-char-p(#0#/"~A"(expt 4(read)))))))