pipe.scm

(define-syntax >>
  (syntax-rules ()
    [(>> val1 (fun args ...))
     (fun val1 args ...)]
    [(>> val1 val2 rest ...)
     (>> (>> val1 val2) rest ...)]))

;; Examples.

(format #t "~s\n"
        (>> 10
            (* 2)
            (+ 3)))


(format #t "~s\n"
        (>> "foo,bar,baz"
            (string-split #\,)
            (list-ref 1)
            (string-upcase)))