Еще вариант

Luzhnikovskiy 24.09.2003 11:20

$str[abcdefghijklmnopqrstuvwxyz]
$str[^str.match[(.)][g]{$match.1 }]
$lett[^str.split[ ]]
^lett.sort{^math:random(^lett.count[])}
^lett.menu{$lett.piece}

Не знаю, быстрее/медленне, чем то, что предложил Миша, но тоже работает ;-)

---