printf"%${@a=map{//*grep$'<<$_>@a<<$_,@@or'.'}0..@a;_}s@a%$_.s
"for@@=-63..0