let rec bin tab (n:float) = 
 if n = 0.0 then tab.(0) else tab.(int_of_float n)*.(pw2 n)+.(bin tab (n-.1.0))