(defn print-dot [n]
  (loop [i n]
        (when (> i 0)
          (print "*")
          (recur (- i 1)))))

(defn print-space [n]
  (loop [i n]
        (when (> i 0)
          (print " ")
          (recur (- i 1)))))

(defn piramit [n]
  (loop [i 0]
    (when (<= i n)
      (print-space (- n i))
      (print-dot (- (* 2 i) 1))
      (println)
      (recur (+ i 1)))))

(piramit 6)