(mod (X)
  (include *standard-cl-23*)

  (defun mess (X)   ;; 11 41
    (assign
      Y (+ X 1)     ;; 12 42
      Z (+ Y 2)     ;; 14 44

      (if (> X 10)
        (lambda ((& X Y Z) Q)
          (if (= X 11)
            (assign
              Y (* X 2) ;; 22 82
              Z (+ Y 1) ;; 23 83
          
              (* Q Y Z)   ;; 11 * 22 * 23 = 506
              )

            (assign
              Y (* X 3) ;; 33 123
              Z (+ Y 2) ;; 35 125

              (* Q Y Z)   ;; 41 * 123 * 125 = 630375
              )
            )
          )
        (lambda ((& Y Z) Q) (* Q Y Z)) ;; 5 * 6 * 8
        )
      )
    )

  (a (mess X) (list X))
  )