$/=' '
z=10**?d
x,y=$<.map{|f|eval"n=(n-z/~i-=1)*~-%d/#{f};"%f*n=i=11600}
print x/y,'.%0100d'%(z*x/y%z)