<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Here's a function from Data.Tree:<br><br>unfoldTree :: (b -> (a, [b])) -> b -> Tree a<br>Build a tree from a seed value<br><br>Could someone please give me a brief example of usage.<br><br>Michael<br><br></td></tr></table><br>