#!/usr/bin/env perl
use strict;
use warnings;

my $count = <>;
chomp $count;
x(\$count, scalar <>);

sub x{
	my ($count, $word) = @_;
	my $next = <>;
	x($count, $next) if $next;
	print $word if $$count-- > 0;
}