#!/bin/sh
exec lush "$0" "$@"
!#

(libload "sn28/sn28")

(render-brace-text 0 72
   '{<p> This demo finds an approximative solution of the
         Travelling Salesman Problem using a ring shaped
         Kohonen map.  Click in the window to enter cities.
         Click on the window message to start the algorithm. } )

(do-while (ask "Again")
  (delete window)
  (tsp-demo) )
        