<div class="gmail_quote">On Sat, Sep 8, 2012 at 5:40 PM, Chaddaï Fouché <span dir="ltr">&lt;<a href="mailto:chaddai.fouche@gmail.com" target="_blank">chaddai.fouche@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
&gt; listOfN n g = replicateM n g<br>&gt; <br>&gt; mixIntersperse genSep genWord = do<br>&gt;   n &lt;- arbitrary<br></blockquote><div><br>Probably you should rather use<br><br>&gt; Positive n &lt;- arbitrary<br><br>No reason to waste your time checking empty lists after all...<br>
 </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">&gt;   ws &lt;- listOfN n genWord<br>
&gt;   ss &lt;- listOfN (n-1) genSep<br>&gt;   return $ interlace ws ss<br><span class="HOEnZb"><font color="#888888"><br>
</font></span></blockquote></div><br>