#! /usr/bin/perl
# $Id$

use strict;
use warnings;

print splice(@ARGV,int(rand(@ARGV)),1)."\n" while @ARGV;