[Remu]

.Десятый этаж:{
var %n = $$1
var %i = $len(%n)
var %nn
var %r, %rr
var %lft, %rgt
while (%i >= 1) {
%r = $rand(1,%i)
%nn = %nn $+ $mid(%n,%r,1)
%rr = %r - 1
%lft = $left(%n,%rr)
%rr = %i - %r
%rgt = $right(%n,%rr)
%n = %lft $+ %rgt
dec %i
}