map$a[$_+map 1..$_,/./g]=$a[$_.=$/]||print,1..3e3