Draw a hierarchy tree like a folder structure

folder-tree.rkt

#lang slideshow
(require bazaar/slideshow/slideshow-tree)

(define t1 '(a (b1 (c1 d1 d2) 
                   (c2 d3 d4)) 
               (b2 (c3 d5) 
                   c4)))

(draw-tree-top-left-right 
 (tree-map t1 (λ(x)(t (symbol->string x))))
 10 10)

Draws a slideshow picture like (but with real lines):

a
|-b1
|  |-c1
|  |  |-d1
|  |  Ld2
|  Lc2
|    |-d3
|    Ld4
Lb2
  |-c3
  |  Ld5
  Lc4