tioover

#lang racket

(define (curry f)
  (define (min-arity arity)
    (if (number? arity) arity (arity-at-least-value arity)))
  (define (curry-aux f args arity)
    (lambda (a)
      (let ((new-args (cons a args)))
        (cond ((= arity 1)
               (apply f (reverse new-args)))