sub f{"@_"-$u["@_"]?f(@u[@_]):"@_"}
@u=@n=0..<>-1;
@$_=glob<>for d,w;
for$i(@n){
	$u=$v,$v=f$_=($i+($d[$i]*=-1))%@n for$a,$b;
	$a-$b?($u[$u]=$v):($w[$a]=$=*=3);
}
for$i(@n){
	$s[f$i]^=$w[$i]^1;
}
print grep($_==1,@s)?No:Yes;