I'm disturbed by this awful loop, every time I see `setq' gives me the heretic though, that most of the eslip code is just Perl with parentheses. (cl-loop

I'm disturbed by this awful loop, every time I see `setq' gives me the heretic though, that most of the eslip code is just Perl with parentheses. (cl-loop for sum = 0 then (+ sum (* total 0.1)) for total = 100 then (* total 0.9) repeat 10 finally (return (list sum total)))