plot.clj

(defn plot [f min max step]
  (doseq [i (range min max step)]
    (dotimes [_ (apply f [i])] (print "*"))
    (println)))

(plot #(Math/pow % 2) 1 5 1)

; *
; ****
; *********
; ****************
;=> nil

(plot #(Math/pow Math/E %) 0 4 1/2)

; *
; *
; **
; ****
; *******
; ************
; ********************
; *********************************
;=> nil