(def A (atom 1))
(def B1 (atom 0))
(def B2 (atom 0))
(def B3 (atom 0))
(def B4 (atom 0))

(while (< @A 121)
  (print @A)
  (reset! B1 (mod @A 2))
  (reset! B2 (mod @A 3))
  (reset! B3 (mod @A 5))
  (reset! B4 (mod @A 7))

  (if (= @A 1)
    (println ":x")
    (if (and (= @B1 0) (not= @A 2))
      (println ":x")
      (if (and (= @B2 0) (not= @A 3))
        (println ":x")
        (if (and (= @B3 0) (not= @A 5))
          (println ":x")
          (if (and (= @B4 0) (not= @A 7))
            (println ":x")
            (println ":o")
              )
            )
          )
        )
      )
    (swap! A inc)
    )
)