https://rosettacode.org/wiki/Averages/Simple_moving_average#Common_Lisp (the code doesn't work, I don't understand anything and I prefer my version).