Clojure stuff

(ns lispjunk
;    (:use java.base)
    )

    (def c 0)
    (def total 0)

    (doseq [arg *command-line-args*]
        (def arg-val (int (read-string (str "0" arg)) ) )
        (printf "arg='%s' > %s\n" arg arg-val)
        (def total (+ total arg-val) )
    )

    (println "----")
    (println (format "args = %d" (count *command-line-args*)) )
    (println (format "total = %d" total) )
    (println "----")
    
    (def c 32)
    (while (< c 128)
        (print (char c))
        (def c (+ c 1))
        (if (= (mod c 32) 0)
            (println) )
    )