(require (for-syntax syntax/stx))

(define-syntax (-> stx)
  (syntax-case stx ()
    ((_ x) #'x)
    ((_ x form) (if (stx-list? #'form)
                    #`(#,(stx-car #'form) x #,@(stx-cdr #'form))
                    #'(form x)))
    ((_ x form . more) #'(-> (-> x form) . more))))