#!/usr/bin/perl

#my $in = join '', <STDIN>;

while(<STDIN>){
  my @a = split ' ', $_;
  print "$a[$ARGV[0]-1]\n";
}

#my $id = $ARGV[0];

#my @a = split ' ', $in;

#print $a[$id-1];