3 ms·cycleM x = x `mplus` (cycleM x) take 8 $ cycleM [1,2,3] might be more generic?by pja 13y agocycleM x = x `mplus` (cycleM x) take 8 $ cycleM [1,2,3] might be more generic?