schemeで
common lispの
(let ((count 0))
　(defun increment ..
　(defun decrement ..

のような処理をしたい場合はどうすればいいのでしょうか?