#!/usr/bin/newlisp
(set 'ssh "ssh -p 22")
(set 'cmd (join (2 (main-args)) " "))
(set 'user "root")
(set 'servers '("192.242.245.83" "218.16.245.80" "18.22.245.86" "11.6.253.2" "11.7.24.11"))
(dolist (server servers) (set 'c (append ssh " " user "@" server " " cmd)) (spawn (sym server) (exec c)) )
(until (sync 2000))
(dolist (server servers)
(println server)
;;(println (eval (sym server)))
(println (eval server)) )
(exit)