$_=<>;@a=split;$n=$#a;$r[0]=[@a];for$i(1..$n){$_=<>;@a=split;map{$r[$i][$_]=$_<$i?$r[$_][$i]:shift@a}0..$n}map{print"@{$r[$_]}
"}0..$n