main=putStr$"1."++show(1#1!!9999);a#b=div(10^499*a)b:b#(a+b)