[Haskell] Data.Tree.drawTree more spacefilling?