(define (partial fun . args)
  (lambda args+
    (apply fun (append args args+))))