#include<cstdio>
#include<cstring>
#include<algorithm>
#include<queue>
using namespace std;
const int maxn=1e3+5;
int n,m,e[3][maxn][maxn];
int inque[3][maxn][maxn],dist[3][maxn][maxn];
int d[3][4][3]={{{1,-1,0},{1,0,1},{2,-1,0},{2,0,0}},
{{-1,0,-1},{-1,1,0},{1,0,-1},{1,0,0}},
{{-2,0,0},{-2,1,0},{-1,0,0},{-1,0,1}}};
queue<int>q[3];
int ans;
int cango(int w,int x,int y){
if(x<1||x>n||y<1||y>m) return 0;
if(w==0&&y==m) return 0;
if(w==1&&x==n) return 0;
if(w==2&&(x==n||y==m)) return 0;
return 1;
}
void init(int w,int x,int y,int dd){
if(dd+e[w][x][y]>=dist[w][x][y]) return;
else dist[w][x][y]=dd+e[w][x][y];
if(inque[w][x][y]) return;
q[0].push(w);q[1].push(x);q[2].push(y);
inque[w][x][y]=1;
}
int spfa(){
for(int i=1;i<n;i++) init(1,i,1,0);
for(int i=1;i<m;i++) init(0,n,i,0);
while(!q[0].empty()){
int w=q[0].front(),x=q[1].front(),y=q[2].front(),dd=dist[w][x][y];
q[0].pop();q[1].pop();q[2].pop();
inque[w][x][y]=0;
if(w==0&&x==1) ans=min(ans,dd);
if(w==1&&y==m) ans=min(ans,dd);
for(int i=0;i<4;i++){
int wn=w+d[w][i][0],xn=x+d[w][i][1],yn=y+d[w][i][2];
if(cango(wn,xn,yn))
init(wn,xn,yn,dd);
}
};
}
int main(){
scanf("%d%d",&n,&m);
for(int i=1;i<=n;i++)
for(int j=1;j<m;j++) scanf("%d",&e[0][i][j]);
for(int i=1;i<n;i++)
for(int j=1;j<=m;j++) scanf("%d",&e[1][i][j]);
for(int i=1;i<n;i++)
for(int j=1;j<m;j++) scanf("%d",&e[2][i][j]);
memset(dist,127,sizeof(dist));
ans=dist[0][0][0];
spfa();
printf("%d\n",ans);
return 0;
}