p,:,3_sv _(p:9_vs!81)%3
{*x(,/{@[x;y;:;]'&21=x[&|/p[;y]=p]?/:!10}')/&~*x}