[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]> ( fitness-demo )
x= 
Style: JUG Orientation: RIGHT Position: (2 9)
Style: CRIMP Orientation: UP Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (8 10)
Applying the fitness metrics... 
 fitness = -10.0
NIL
[3]> ( fitness-demo )
x= 
Style: SLOPER Orientation: UP Position: (8 2)
Style: CRIMP Orientation: LEFT Position: (11 4)
Style: PINCH Orientation: RIGHT Position: (9 10)
Style: SLOPER Orientation: LEFT Position: (6 10)
Style: SLOPER Orientation: LEFT Position: (5 10)
Applying the fitness metrics... 
 fitness = -69.35
NIL
[4]> ( fitness-demo )
x= 
Style: CRIMP Orientation: UP Position: (9 3)
Style: CRIMP Orientation: LEFT Position: (2 10)
Style: SLOPER Orientation: UP Position: (6 10)
Style: CRIMP Orientation: UP Position: (0 10)
Style: CRIMP Orientation: RIGHT Position: (3 10)
Applying the fitness metrics... 
 fitness = -25.55
NIL
[5]> ( fitness-demo )
x= 
Style: JUG Orientation: UP Position: (14 9)
Style: JUG Orientation: UP Position: (3 9)
Style: SLOPER Orientation: LEFT Position: (5 9)
Style: PINCH Orientation: RIGHT Position: (4 9)
Style: PINCH Orientation: RIGHT Position: (12 10)
Style: PINCH Orientation: RIGHT Position: (14 10)
Applying the fitness metrics... 
 fitness = -80.2
NIL
[6]>