$s[~$i-=1+$n*$j+=!$n]=fgetc(STDIN)?:~!print$s)$s.=~õ;