Lisp implementation of approximate 2-opt algorithm for Travelling salesman problem