DouKaku?

(define (pyramid h)
  (let loop ((space (- h 1)) (star 1))
    (if (<= 0 space)
        (begin
          (print #`",(make-string space #\\space),(make-string star #\\*)")
          (loop (- space 1) (+ star 2))))))