Drawing trees for fun in Haskell