while (<STDIN>) {
   chomp;
   @w = split //;
   $m = 1;
   for (my $i = 1; $i <= @w; $i++) {
      $m *= $i;
   }
   $i = 0;
   for (my $n = 0; $n < $m; $i++) {
      $v = join('',@w);
      if (!exists($ws{$v})) {
         $n++;
         $ws{$v} = 1;
         print "$v\\n";
      }
      $rn = rand(@w);
      $rm = rand(@w);
      ($w[$rn],$w[$rm]) = ($w[$rm],$w[$rn]);
   }
   print "(only " . $i . " attempts)\\n";
   undef %ws;
}