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

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

      (if (= X 11)
        (assign
          Y (* X 2) ;; 22 82
          Z (+ Y 1) ;; 23 83
          
          (* Y Z)   ;; 22 * 23 = 506
          )

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

          (* Y Z)   ;; 123 * 125 = 15375
          )
        )
      )
    )

  (mess X)
  )