#                 1         2        
#        12345678901234567890123456
perl -E "$_=3;say,$_*=--$_ until/#/"