(do ((i 1 (+ i 1)))
    ((> i 10))
  (button
     label: (number->string i)
     onpress: (lambda () (handle-digit i))))