(define (add-x-elements-func number content a)
(if (< a number)
((lambda ()
(element-insert! "body" content)
(add-x-elements-func number content (+ a 1))))
#t))
(define (add-x-elements number content) (add-x-elements-func number content 0))
; -------------------------------------------------;
(add-x-elements 3 "<h1>Example</h1>")