#!/usr/local/bin/sbcl --script


(defun plot (fn min max step)
  (loop for i from min to max by step do
        (loop repeat (funcall fn i) do (format t "*"))
        (format t "~%")))

(plot #'(lambda (x) (* 2 x)) 0 4 1/2)