速度じゃないけど nested loop のソースを見ると >>142 のコードがｲｲね。
LISP ｶｺｲｲ。