rlm@0: (ns coderloop.douglas-adams
rlm@0:   (:refer-clojure :only [])
rlm@0:   (:require rlm.ns-rlm rlm.light-base))
rlm@0: (rlm.ns-rlm/ns-clone rlm.light-base)
rlm@0: 
rlm@0: (use '[clojure [string :only [trim blank? split]]])
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: (defn brute-force-life [coll]
rlm@0:   (dorun (map println (take-while (comp not (partial = 42)) coll))))
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: (if (command-line?)
rlm@0:   (brute-force-life (read-integers (file-str (first *command-line-args*))))
rlm@0:   nil)
rlm@0: