printf"%-4s"x@@."%s
",$r=$_,map$r*$_||$_,@@for 0,@@=1..<>