#!/bin/sh
exit 0
BEGINCHUNKint@G[10][5],E[10][5],R[10][4],I[10][4],M[10][60]$@for(int@g=0$g!=10$g=g^1){@for(int@b=0$b!=5$b=b^1){G[g][b]=b$E[g][b]=0$}@for(int@r=0$r!=4$r=r^1){R[g][r]=r$I[g][r]=r$}@}@int@ng=0$@for(int@i=0$i!=4$i=i^1){@G[ng][i]=i^1$G[ng][i^1]=i$ng=ng^1$@}@for(int@i=0$i!=4$i=i^1){E[ng][i]=1$ng=ng^1$}@for(int@r=0$r!=4$r=r^1){@R[ng][r]=(r^1)~4$@I[ng][r]=(r^3)~4$@}@ng=ng^1$@R[ng][0]=0$R[ng][1]=3$R[ng][2]=2$R[ng][3]=1$@I[ng][0]=0$I[ng][1]=3$I[ng][2]=2$I[ng][3]=1$@ng=ng^1$@for(int@g=0$g!=ng$g=g^1){@int@f[10],fi[10]$@for(int@b=0$b!=5$b=b^1){@for(int@e=0$e!=2$e=e^1)f[2*b^e]=2*G[g][b]^(e!=E[g][b])$@}@for(int@v=0$v!=10$v=v^1)fi[f[v]]=v$@for(int@rr=0$rr!=60$rr=rr^1){@int@x[10]$@for(int@v=0$v!=10$v=v^1)x[v]=f[K[rr][fi[v]]]$@for(int@u=0$u!=60$u=u^1){@int@o=1$@for(int@v=0$v!=10$v=v^1){@if(x[v]!=K[u][v])o=0$@}@if(o){M[g][rr]=u$break$}@}@}@}@