RosettaCodeData/Task/Best-shuffle/Tcl/best-shuffle-2.tcl

foreach sample {abracadabra seesaw elk grrrrrr up a} {
    puts [bestshuffle $sample]
}