main=print$iterate(f.(*10))1!!999 f l=last[l+3-a|x<-map(10^)[1..108],a<-[1,2],mod(l`div`x-l)x==a]