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