(use posix)
(define 1* (duplicate-fileno 1))                        ; save original stdout
(system "echo 1")
(duplicate-fileno (file-open "/dev/null" open/write) 1) ; redirect stdout to /dev/null
(system "echo 2")
(duplicate-fileno 1* 1)                                 ; restore original stdout
(system "echo 3")