#;1> (define-values (i1 o1 i2 o2) (unix-pair))
#;41> (write-line "hello there" o1)
#;42> (read-line i2)
"hello there"
#;43> (write-line "foo" o2)
#;44> (read-line i1)
"foo"