(loop(format t"~A: ~A
"(set'n(read))(loop for i from 1 to(isqrt n)if(=(mod n i)0)sum(+(if(> #1=(/ n i)i)#1#0)i))))