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