alias karisik {
  var %i 1,%q,%z,%t
  while (%i <= $len($1)) {
    :bas    
    %z = $rand(1,$len($1))
    if (!$istok(%q,%z,46)) { %q = $+(%q,.,%z) | %t = $+(%t,$mid($1,%z,1)) }
    else { goto bas }
    inc %i
  }
  return %t
}