(manager-micromanage-loop manager)))
(begin (display "manager> Oh! I guess you can go home then.\n")
(<- manager (manager-direct-report manager) 'go-home)))))
(manager-micromanage-loop manager)))
(begin (display "manager> Oh! I guess you can go home then.\n")
(<- manager (manager-direct-report manager) 'go-home)))))