yes.guile

#!/usr/bin/env sh
exec guile --no-auto-compile -s "$0" "$@"
!#

(define (yes arg)
  (do () (#f) (begin (display arg) (newline))))

(yes (if (> (length (command-line)) 1)
  (string-join (cdr (command-line)) " ")
  "y"))