t/t4018/scheme-define-variant

(define* (some-func x y z) RIGHT
  (let ((a x)
        (b y))
        (ChangeMe a b)))