(mod (X)
  (include *strict-cl-21*)
  (list X (+ X 1) (+ X2))
  )