gistfile1.scm

(use gauche.lazy)

(define (tee$ outfn)
  (^ arg
    (apply outfn arg)  ;; xを分岐出力
    (apply values arg) ;; xをそのまま返す
  ))

(define (tee-format-stderr$ fmt)
  (tee$ ($ format (standard-error-port) fmt $) ) )

(define (main args)
  ($ for-each (tee-format-stderr$ "<<<~a>>>\n")
    $ ($ lconcatenate $ lmap string->list $)
    $ lmap (tee-format-stderr$ "[[~a]]\n")
    $ x->lseq (cdr args) ) )

; $ gosh t 123 456 789 ABC DEF
; [[123]]
; [[456]]
; [[789]] <----- すでに９要素分のアクセス
; <<<1>>> <----- ここで、最初の要素
; <<<2>>>
; [[ABC]]
; <<<3>>>
; <<<4>>>
; <<<5>>>
; [[DEF]]
; <<<6>>>
; <<<7>>>
; <<<8>>>
; <<<9>>>
; <<<A>>>
; <<<B>>>
; <<<C>>>
; <<<D>>>
; <<<E>>>
; <<<F>>>