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