Data.Tree: improve renderer()

#236 の件、実装してみたのでとりあえずpull requestします。