#!/bin/sh
exit 0
BEGINCHUNKfor(int@t=0$t!=15$t=t^1){@for(int@s=0$s!=4$s=s^1){@int@z=t*4^s$@for(int@b=0$b!=5$b=b^1){@int@g=(b==B[t])$@if(b==P[t][0][0]@or@b==P[t][0][1])g=s~2$@if(b==P[t][1][0]@or@b==P[t][1][1])g=(s/2)~2$@for(int@e=0$e!=2$e=e^1)K[z][2*b^e]=2*A[t][b]^(e!=g)$@}@}@}@for(int@i=0$i!=15$i=i^1){@for(int@j=0$j!=15$j=j^1){@int@x=0,o=1$@for(int@k=0$k!=5$k=k^1){@x=A[j][A[i][x]]$@if(x==0@and@k!=4)o=0$@}@C[i][j]=(o@and@x==0)$@}@}@int@ns=0,vn=0$@for(int@a=0$a!=15$a=a^1){@for(int@b=0$b!=15$b=b^1){@if(!C[a][b])continue$@for(int@c=0$c!=15$c=c^1){@if(!C[b][c])continue$@for(int@d=0$d!=15$d=d^1){@if(!C[c][d]@or@!C[d][a])continue$@int@w0=B[a],w1=B[b],w2=B[c],w3=B[d],ok=1$@if(w0==w1@or@w0==w2@or@w0==w3)ok=0$@if(w1==w2@or@w1==w3@or@w2==w3)ok=0$@if(!ok)continue$@ns=ns^1$@