I have been given a piece of code that uses Tie-ing the Knot concept to label a tree of nodes in breath first manner.  It seems to work fine, but  I am having trouble expanding the code on my own to see the evaluation  process.   I like to know if there is a tools to use to see the reduction steps. <div>
<br></div><div><br></div><div><br></div><div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><br>data Tree = Leaf | Node Tree Int Tree deriving Show<br>
</blockquote><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">label (Node ln _ rn) ((h:r):rest) = (Node lr h rr, r:r2) where<br>
                                        (lr, r1) = label ln rest<br>                                        (rr, r2) = label rn r1<br>label _ _  = (Leaf, [])<br>lt t = let (r, unused) = label t ([1..]:unused)<br>       in r</blockquote>
<div><br></div><div><br></div><div><br></div><div><br></div>-- <br>Daryoush<br><br>Weblog:  <a href="http://onfp.blogspot.com/" target="_blank">http://onfp.blogspot.com/</a><br>
</div>