create 0081.clj
modify 0081.clj (reduce the arity of recursive function)