use strict;
use warnings;
my $cnt = shift || rand(1000);
my @lines = <STDIN>;
print $lines[rand @lines] for 1 .. $cnt;