(htdp-syntax-test #'(recur empty-f () 10))

(htdp-syntax-test #'(let name ([x 12]) 10))