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