($r,$k,$h,$w)=glob<>.<>;@a=map[/./g],<>;($h,$w,@a)=($w,$h,map[map$a[$h-1-$_][$'],0..$h-/^/],0..$w-1)for 1..$r/90;//,print map$a[$'/$k][$_/$k]||$/,0..$w*$k for 0..$h*$k