let rec f p i a n=i>0.&f(p*.(n+.9.)/.i)(i-.1.)a(n-.1.);Printf.printf"%d %.f
"a p;!0and(!)x=Scanf.scanf"%d %f "(f 1. 9.);;read_int();!0