#!/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)$@}@}@}@int@cyc[60][60]$@for(int@i=0$i!=60$i=i^1){@for(int@j=0$j!=60$j=j^1){@int@p[10]$@for(int@v=0$v!=10$v=v^1)p[v]=K[j][K[i][v]]$@ty(p)$@cyc[i][j]=(nc==2@and@c5==2)$@}@}@int@vn=0$@for(int@k0=0$k0!=60$k0=k0^1){@for(int@k1=0$k1!=60$k1=k1^1){@for(int@k2=0$k2!=60$k2=k2^1){@for(int@k3=0$k3!=60$k3=k3^1){@if(B[k0/4]==B[k1/4]@or@B[k0/4]==B[k2/4]@or@B[k0/4]==B[k3/4])continue$@if(B[k1/4]==B[k2/4]@or@B[k1/4]==B[k3/4]@or@B[k2/4]==B[k3/4])continue$@if(!cyc[k0][k1]@or@!cyc[k1][k2]@or@!cyc[k2][k3]@or@!cyc[k3][k0])continue$@