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