main=mapM f[1..195] f n|n/=r n=f$n+r n|0<1=print n r=read.reverse.show