наверное что-то типа этого:

Misha v.3 23.09.2003 21:30

$str[ИНДУСТРИАЛИЗАЦИЯ]

$length(^str.length[])
$use[^hash::create[]]
^while(^use._count[] != $length){$n(^math:random($length))^if(!$use.[$n]){^str.mid($n;1)^use.add[$.[$n](1)]}}