(defn test [a n]
  (if (> n 1)
    (test (* a n) (- n 1))
  )
  a
)