This is almost exactly how reanimate generates animations with Haskell: https://github.com/Lemmih/reanimate
Animations are frames over time and can be composed using 'seqA' and 'parA' combinators.
Animations are frames over time and can be composed using 'seqA' and 'parA' combinators.
foldr1 (\x y -> ((x `par` delay 1) `seq` y)) $ map pure [1..]