(let loop ((recipients-left recipients))
(unless (null? recipients-left)
(send-message (car recipients-left) 'show-msg name str)
(let loop ((recipients-left recipients))
(unless (null? recipients-left)
(send-message (car recipients-left) 'show-msg name str)