ソースコード量の比較 schemeとPHPの続き

一昨日のソースコード量の比較 schemeとPHPの記事にpodhmoさんからコメントを頂いたのですが、ちゃんと理解できなかったので、cuteとかcutをlambdaに置き換えてみる。
元のソース。

(let1 ht (make-hash-table)
      (for-each (cute hash-table-update! ht<> (lambda (x) (+ x 1)) 0) year_month)
      (sort-by (hash-table-map ht cons)
               (compose x->string car)
               string>?))

cuteとかcutをlambdaで置き換えたソース。

(let1 ht (make-hash-table)
      (for-each (let ((e1 ht)
                      (e2 (lambda (x) (+ x 1)))
                      (e3 0))
                  (lambda (s) (hash-table-update! e1 s e2 e3))) year_month)
      (sort-by (hash-table-map ht cons)
               (compose x->string car)
               string>?))

ということで何とか理解しました。
ありがとうございます! > podhmoさん