i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "tsp.lsp")
;; Loading file tsp.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file tsp.lsp
T
[2]> (setf m '(e j i b c d k h f a g))
(E J I B C D K H F A G)
[3]> (setf f '(f g c a i j b e d k h))
(F G C A I J B E D K H)
[4]> (crossover m f 4)
(I J B E C D K H F A G)
[5]> (setf m '(b f i j e a g c k h d))
(B F I J E A G C K H D)
[6]> (setf f '(h f e b g c a i j d k))
(H F E B G C A I J D K)
[7]> (crossover m f 3)
(B F I J E G C A K H D)
[8]> (setf m '(e k i c b a d j h f g))
(E K I C B A D J H F G)
[9]> (setf f '(d j g a c k b i f e h))
(D J G A C K B I F E H)
[10]> (crossover m f 5)
(E A C K B I D J H F G)
[11]> (bye)
Bye.