<div><br></div><div><br></div><br clear="all"><div><div>buildPair =</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>do</div><div>arr &lt;- newArray ((1,1),(1,10)) 37 :: ST s (STArray s (Int,Int) Int)</div>
<div><span class="Apple-tab-span" style="white-space:pre">                </span>a &lt;- readArray arr (1,1)</div><div>        writeArray arr (1,1) 64</div><div>        b &lt;- readArray arr (1,1)</div><div>        return (a,b)</div><div>
<br></div><div><br></div><div>main = print $ runST buildPair</div><div><span class="Apple-tab-span" style="white-space:pre">                </span></div></div><div><br></div><div><br></div>-- <br>--<br>Regards,<br>KC<br>