http://www.h-i-r.net/2009/07/network-programming-and-distributed.html #!/usr/bin/newlisp (set 'params (main-args)) (when (< (length params) 5) (println "USAGE: " (params 0) " " (params 1) " host begin-port end-port") (exit)) (set 'host (nth 2 params)) (set 'bport (int (nth 3 params))) (set 'eport (int (nth 4 params))) (for (port bport eport) (print port) (set 'socket (net-connect host port 1000)..