A sample of rendering trees to HTML

The original tree as specified in Haskell:

Spread "Dogs" 
       [ Spread "Big dogs" [leaf "Dobermans", leaf "Sheep dogs",
                Spread "Big red dogs" [leaf "Clifford"]],
         Spread "Small dogs" [leaf "Chihuahuas (sp?)", leaf "Poodles",
                Spread "Small mean dogs" [leaf "Triumph the comic insult dog"]]
       ]

The Html output from renderTree:

Dogs

• Big dogs
  • Dobermans

  • Sheep dogs

  • Big red dogs
    • Clifford

• Small dogs
  • Chihuahuas (sp?)

  • Poodles

  • Small mean dogs
    • Triumph the comic insult dog