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