;; start 5 new processes
;; ipc:bind-func work in each
(define procs
(map (lambda (n p)
(ipc:new n p)
(ipc:bind-func n 'work)
n)
(list "proc-a" "proc-b" "proc-c" "proc-d" "proc-e")
(list 7097 7096 7095 7094 7093)))