めずらしきこと。
メールアドレスを簡単に収集されない方法のひとつに，部分的実体参照化があるが，十六進の文字コードを見ながら十進に直すのも面倒なので，マクロにしてみた。
= Entity.def v0.10 =
*m
1 "entity"
?.
(mb-2)?.
mp[, ps[=pa, #G ps], mp],
(mb)?{ &m("改行をまたいでいるようです") . }
mi[-, &s
mb=2, ux[+, #y ux],
ax=$2C00, &i($21) rn=cx+dx, ; 時刻でrandomize
&Sn(pa) l=r, i-,
ps[=pa,
#61 #< ;作業用入力窓(put2)に呼び出す
:l &r
(r%2 && r%3) ;6〜7割方の確率で変換
?#d
?{ c=cd, #g &?("&#%d;",c) }
(l>i++)?>l
#m ;出力
:z ps], mi],
&d .
*
