Evaluated proc adjective_fill str {set out $str; map [adjective_scrape $out] {x {set out [regsub "%$x" $out [string totitle [adj $x]]]}}; . $out }