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