#lang racket

(define (length-between/c min max)
  (define (predicate? v)
    (define len (length v))
    (<= min len max))
  (define name (string->symbol (format "list-length-beteween-~v-and-~v" min max)))
  (flat-named-contract name predicate?))