(= n(read)v(read)k(expt 10 100)x k)(for i 1 111(++ x(trunc:/(+(/(- -1 x)(/:expt x n)v(expt k n))x)n)))(pr((= s(+""x))0)#\.(cut s 1))