Evaluated proc noun_fill str {set out $str; map [noun_scrape $out] {x {set out [regsub "#$x" $out [noun $x]]}}; . $out }