<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Jun 20, 2010, at 6:24 PM, Alexander Solla wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px; ">do&nbsp;a &lt;- getChar</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px; ">&nbsp;&nbsp; let b = c &gt;&gt;= return . f</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px; "><span class="Apple-style-span" style="white-space: pre; ">&nbsp;  </span>let c = b &gt;&gt;= return . g</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px; "><span class="Apple-style-span" style="white-space: pre; ">&nbsp;  </span>c &gt;&gt;= putChar</span></font></div><div><font class="Apple-style-span" face="Courier" size="3"><span class="Apple-style-span" style="font-size: 12px; ">&nbsp;&nbsp; b</span></font></div>________________</span></blockquote></div><br><div>Correction: &nbsp;by your construction, f and g are already in the Kliesli category, so you don't need the return compositions. &nbsp;I still don't know if the construction is admissible though.</div></body></html>