P:\test>perl -le"print join'.', %h = (1)x$_ for 1..20;"
1
1.1
1..1
1..1.1
1..1..1
1.1.1..1.1
1..1..1..1
1..1.1.1..1.1
1..1..1..1..1
1.1.1..1.1.1..1.1
1..1..1..1..1..1
1..1.1.1..1.1.1..1.1
1..1..1..1..1..1..1
1.1.1..1.1.1..1.1.1..1.1
1..1..1..1..1..1..1..1
1..1.1.1..1.1.1..1.1.1..1.1
1..1..1..1..1..1..1..1..1
1.1.1..1.1.1..1.1.1..1.1.1..1.1
1..1..1..1..1..1..1..1..1..1
1..1.1.1..1.1.1..1.1.1..1.1.1..1.1