Evaluated proc ungape_html str { set ok [loffset [regexp -all -inline {&(\d+);} $str] 1 1] }