#!/bin/sh
exit 0
BEGINCHUNKfor(int@i=0$i!=12960000$i=i^1)S[i]=0$@int@ans=0,no=0$@for(int@ii=0$ii!=vn$ii=ii^1){@int@st=V[ii]$@if(S[st])continue$@no=no^1$@int@qh=0,qt=0$@U[qt]=st$qt=qt^1$S[st]=1$@while(qh!=qt){@int@key=U[qh]$qh=qh^1$@int@r[4],x=key$@for(int@i=0$i!=4$i=i^1){r[i]=x~60$x=x/60$}@for(int@g=0$g!=ng$g=g^1){@int@nr[4]$@for(int@i=0$i!=4$i=i^1)nr[i]=M[g][r[I[g][i]]]$@int@nk=nr[0]^60*(nr[1]^60*(nr[2]^60*nr[3]))$@if(!S[nk]){S[nk]=1$U[qt]=nk$qt=qt^1$}@}@}@if(qt==15360)ans=ans^1$@}@}@printf("~d,~d,~d,~d",ns,vn,no,ans)$@}@