 (defn-log add-with-log
   [a b]
   (+ a b))
+
+(defn-log repeat-n
+  [n s]
+  (apply str (repeat n s)))
 
 (defn test-add-with-log
   []

;; Macros can help address operational constraints
;; --------------------------------------------------------

(defn log-enter-message
  "Returns the log message for the function and its arguments"
  [log-prefix arg-names arg-values]
  (str log-prefix (zipmap arg-names arg-values)))

(defn bindings->bound-vars
  "Clean the bindings to remove the restructuring artifacts"

    ))


;; (set! *warn-on-reflection* true)
;; (set! *unchecked-math* :warn-on-boxed)


