ll @n,a=0;while(n>9)n=prodDigits(n),a++;wt(a);