use strict;
use warnings;

local $\ = "\n";
local $_ = 'y,ys,sy,,s,ys,sy,';

for my $n (1 .. $ARGV[0] || 10) {
 print;
 eval;
}
print;