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]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page