(if (message-ref reply '*auto-reply* #f)
(~display "customer> Whaaaaat? I can't believe I got voice mail!\n")
(begin
(~format "*customer hears*: ~a\n" (message-ref reply 'msg))
(if (message-ref reply '*auto-reply* #f)
(~display "customer> Whaaaaat? I can't believe I got voice mail!\n")
(begin
(~format "*customer hears*: ~a\n" (message-ref reply 'msg))