(set-syntax-from-char #\. #\ )(loop(format t"~D
"(+ #1=(logcount(read))#1##1##1#)))