Evaluated proc rcolour {} { rpick {red orange yellow green blue purple} }