$a=<>;for$i(1..3){print"@{[map+($i*$a=~r)+($_*$a=~c),1..3]}
"}