あ、これでいいんじゃないか。
第2回 「単一代入」と「末尾再帰」 | 日経 xTECH（クロステック） を読み直して、思いついた。http://www.hizum.net/diary/?date=20060913#p01 の closure を以下のように変えればいいのではないだろうか。
/closure { [currentdict dup length dict copy /begin cvx 4 -1 roll aload pop /end cvx] cvx } def
第2回 「単一代入」と「末尾再帰」 | 日経 xTECH（クロステック） を読み直して、思いついた。http://www.hizum.net/diary/?date=20060913#p01 の closure を以下のように変えればいいのではないだろうか。
/closure { [currentdict dup length dict copy /begin cvx 4 -1 roll aload pop /end cvx] cvx } def