[1]> ( load 'genetic-route.l)
;; Loading file genetic-route.l ...
;;  Loading file route.l ...
;;  Loaded file route.l
;; Loaded file genetic-route.l
T
[2]> *styles*
(JUG CRIMP PINCH SLOPER)
[3]> *orientation*
(UP LEFT RIGHT)
[4]> *wall-length*
15
[5]> *wall-height*
10
[6]> ( display-hold ( make-hold ( random *wall-height* ) ) )
Style: PINCH Orientation: UP Position: (9 10)
NIL
[7]> ( display-hold ( make-hold ( random *wall-height* ) ) )
Style: CRIMP Orientation: LEFT Position: (11 4)
NIL
[8]> ( display-hold ( make-hold ( random *wall-height* ) ) )
Style: PINCH Orientation: UP Position: (10 7)
NIL
[9]> ( display-hold ( make-hold ( random *wall-height* ) ) )
Style: CRIMP Orientation: LEFT Position: (0 9)
NIL
[10]> ( display-hold ( make-hold ( random *wall-height* ) ) )
Style: JUG Orientation: RIGHT Position: (2 8)
NIL
[11]>