On Sun, Sep 9, 2012 at 1:29 AM, Iain Nicol <iain@thenicols.net> wrote:

mixIntersperse :: Gen String -> Gen String -> Gen [String]
mixIntersperse genSep genWord =
  sized (sequence . intersperse genSep . (`replicate` genWord))


Very nice :-) (And stupid of me not to think of creating a list of Gen directly !)

--
Jedaï