11 lines
168 B
Plaintext
11 lines
168 B
Plaintext
(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)
|