#!/usr/bin/perl -w

use strict;

my @lines = <>;

while ( @lines ) {
	print splice @lines, rand(@lines), 1;
}