#!/usr/bin/perl -w

srand ($$^time);

@lines = ();
while (<>) {
  push (@lines, $_);
}

@lines = sort byrand @lines;
@lines = sort byrand @lines;
@lines = sort byrand @lines;
print join ('', @lines);
exit;

sub byrand {
  my $x = rand();
  ($x < .3333) && return -1;
  ($x < .6666) && return 0;
  1;
}

