(module scheme.case-lambda (case-lambda)
  (import (only scheme >= car cdr eq? length)
          (only chicken case-lambda)))