(sc-define-syntax (for-i index limit body ...)
  (for ((define index int 0)
        (< index limit)
        (set+ index 1))
    body ...))

(sc-define-syntax (with-alloc var type allocate free body ...)
  (let* ((var type allocate))
    body ...
    (free var)))