$l=<>;
$l += $l == 20 ? 10 : 12;
print substr(join("",<>) =~ s/\n//gr, 0, $l)