#!/usr/bin/perl -n
($c, $v) = /(\S+)\s+(\S+)/;
while ($c-->0) {print "$v\n"}