(loop(push(or(read-char()/)(dotimes'58(format(> #1=(count #2=(int-char(+ .'65))*)0)"~C:~3D
"#2##1#))!)*))