¿_ %x = | return $regsubex($str(.,20),/./g,$¿)
¿ set %x $addtok(%x, $r(1,49), 32) 
_¿ ¿_ | echo -a $token(%x,1-6,32)

39 2 30 32 20 38
37 48 41 39 27 11
12 29 17 16 2 30
45 36 16 33 25 17
11 26 27 17 40 22
11 36 17 6 2 23
26 27 16 45 42 46
27 12 11 30 26 25
36 48 6 29 3 46