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