(defvar log i64)

(defn quiet [n i32] i32
  (defer (set log (+ log 1)))
  (* n 2))

(defn main [] i32
  (print (quiet 21)) (println "")
  (print log) (println "")
  0)