ocamllexでlexerを書くとき、あるシンボルに出会ったら複数のトークンを返したいという時があります。 そういうときは、lexerをこんな風にラップするclosureを書きます。 let cached_tokens = ref [] let cache_token token = cached_tokens := token :: !ca…