my $n=...;
for(1..$n){print '.'}