ll e[120],d[],n,r;void f(ll a){if(n--)rep(i,9){if(d[i]--)f(10a+i);++d[i];}else{rep(i,9)a+=40d[i]*i;r+=!e[a%120]++;}++n;}{rd(n);rep(n){char@c;++d[c-49];}n<?=3;f(0);wt(r);}