(defn generate-multiple [q n]
  (loop [i 1]  
  (when (<= i n)    
    (print (* q i)" ")    
    (recur (inc i)); loop i will take this value
))
)
(print "[")
(generate-multiple 3 4)
(print "]")