F#'s pipe operator for racket.

gistfile1.txt

(define pipe
  ; Inspired on F#'s Forward pipe operator (|>)
  (lambda args
    (let ((v (car args))
          (functions (cdr args)))
      (foldl (λ (f v) (f v)) v functions))))

(test (pipe 1
            add1
            number->string
            println)
      (println
       (number->string
        (add1 1))))