($r,$k)=glob<>;($h,$w)=glob<>;@a=map[/./g],<>;
while($r){
	@b=();
	for$y(0..$h-1){
		for$x(0..$w-1){
			$b[$x][$h-1-$y]=$a[$y][$x];
		}
	}
	@a=@b;
	($h,$w)=($w,$h);
	$r-=45;
}

for$y(0..$h-1){
	for(1..$k){
		for$x(0..$w-1){
			for(1..$k){
				print$a[$y][$x];
			}
		}
		print$/;
	}
}