(mod (X) (include *standard-cl-21*) (include range.clinc) (range X) )