/ \d+/,print"@{[map$_*$',$`/$'..$&/$'-.1]} "for<>