(mapcar #'print
(list (load "/home/josie/tweak.lsp") (setq g (random-graph 20)) (setq c (correlate-graph g)) (setq g1 (improve-graph g)) (setq c1 (correlate-graph g1))))