#include <iostream>
#include <stdio.h>
#include <cstring>
#include <math.h>
#include <algorithm>
#include <vector>
#include <string>
#include <stdlib.h>
#include <queue>
#include <utility>
#define rep(i,n) for(int i=0;i<n;i++)
#define rrep(i,n) for(int i=n-1;i>=0;i--)
#define FOR(i,a,b) for(int i=a;i<b;i++)
#define ll long long
#define LL long long
#define INF 1000000001
#define mod 1000000007
using namespace std;
int keta(int n,int k){return (n/int(pow(10,double(k-1)))) % 10;} //nの下からk桁目
ll gcd(ll n,ll m){
	if(n<m){ll a=m;m=n;n=a;}
	ll r=n%m;
	while(r!=0){
		n=m;
		m=r;
		r=n%m;
	}
	return m;
}
ll lcm(ll n,ll m){
	return n*m/gcd(n,m);
}

int main(){
	
	int r,k,h,w;
	cin>>r>>k>>h>>w;
	vector<vector<char>> c,ans;
	c.resize(h);
	rep(i,h){
		c[i].resize(w);
		rep(j,w)cin>>c[i][j];
	}
	if(r==0){
		ans=c;
	}
	if(r==180){
		ans=c;
		rep(i,h){
			rep(j,w){
				ans[i][j]=c[h-1-i][w-1-j];
			}
		}
	}
	if(r==90){
		ans.resize(w);
		rep(i,w){
			ans[i].resize(h);
			rep(j,h){
				ans[i][j]=c[h-1-j][i];
			}
		}
		int x=h;
		h=w;w=x;
	}
	if(r==270){
		ans.resize(w);
		rep(i,w){
			ans[i].resize(h);
			rep(j,h){
				ans[i][j]=c[j][w-1-i];
			}
		}
		int x=h;
		h=w;w=x;
	}

	rep(i,h){
		rep(y,k){
			rep(j,w){
				rep(z,k)cout<<ans[i][j];
			}
			cout<<endl;
		}
	}

	
}