Динамически добавляемые текстовые поля

#lang racket/gui
; Make a frame by instantiating the frame% class
(define frame (new frame% [label "Example"]))

;; переменная количества сил действующих на балку
(define num 0)

;; поле ввода количества сил действующих на балку
(define how-many-fields (new text-field%
                             [label "Сколько сил"]
                [parent frame]
                [callback (λ (w e) (set! num (string->number (send w
get-value))))]))

;;здесь наверное должен быть макрос
;;бестолковая попытка добавления текстовых полей в форму
(define (count n t-f)
  (if (= n 0)
      t-f
      (count (- n 1) t-f)))

;; количество этих полей должно быть равно num, как к такой
;  проблеме подходить
(define tf (new text-field% [label "bla"]
                [parent frame]))
(count num tf)

; Show the frame by calling its show method
(send frame show #t)