Evaluated proc dox {} { m [aa? dox] {x { foreach thing [chunk [first [aa dox $x]]] { first [last $thing] }; . \n }} }