Evaluated proc verb_fill str {set out $str; map [verb_scrape $out] {x {set out [regsub "!$x" $out [string totitle [verb $x]]]}}; . $out }