use strict;use subs qw(r p j u k);my@M=split''
," REKCAH LREP REHTONA TSUJ";my@s;for my$y(0..
$#M){for(0..79){$s[$y][$_]=" "}}my@m=@M;{push@
{$s[0]},k\@m;@m=@M if$#m<0;for(0,0){@s=r@s;u\@
{$s[$_]};@s=r@s;k\@{$s[$_]};u\@{$s[$#s-$_]};@s
=r@s;my$k=k\@{$s[$#s-$_]};@s=r@s;$s[$_][j@{$s[
$_]}]=$k}p@s;redo}sub r{my@r;for my$y(0..$#_){
for my$x(0..j(@{$_[$y]})){$r[$x][$y]=$_[$y][$x
]}}@r}sub p{system'cls';for(@_){print for(@$_)
}}sub u{pop@{$_[0]};unshift@{$_[0]}," "}sub j{
$#_}sub k{shift@{$_[0]}}BEGIN{$|=1}