Evaluated proc dox who {set out "[^B]DOX on [^_][string toupper $who]\n"; m [aaa? dox $who] {x {append out "[^B][string totitle $x]: [aaa dox $who $x]\n"}}; . $out }