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