Evaluated proc phrase {who {number 1}} {set out ""; map [string repeat "a " $number] {x {append out "<@$who> [rpick $::phrases($who)]\n"}};. $out}