map{$m[$_]=$_%(@m=(0)x@@)*-$_,print"@m
"}@@=-$_*2..0for<>