(use posix ports)

(define (call-process-string program string)
  (with-output-to-string
    (lambda ()
      (with-output-to-pipe
       program
       (lambda ()
         (display string))))))

(call-process-string "tac" "foo\nbar\nbaz\n")