(loop(#1=format t"~D
"(loop as c across(#1#/"~D"(expt 4(read)))sum(-(char-int c)48))))