(defn fibo "print the fibnoacci sequence \"n\" times"
    ([limit]
     {:pre [(>= limit 1)] }
     (let [count (atom 1)]
       (loop [prev 1 next 1]
         (println (str @count ":\t\t" prev))
         (if (< @count limit)
           (do
              (swap! count inc)
              (recur next (+ prev next))))))))