#!/usr/bin/perl
#interprets the first parameter as a c file, and runs it

use strict;


sub random_permute {
   my (@list) = (@_);

   my(@newlist, $ran, $new);

   while ($#list != -1) {
     $ran = int(rand $#list+1);
     $new = splice(@list, $ran, 1);
     push(@newlist, $new);
   }
   
   return @newlist;
}



srand;        # used for perl versions < 5.0004


my (@list, $arg);

foreach $arg (@ARGV) {
  push(@list, $arg);  
}


#foreach $arg (@list) {
#  print "$arg\n";
#}

@list = random_permute(@list);

foreach $arg (@list) {
  print "$arg\n";
}