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)))