let generation_bf = function (destination:string) ->
 let oc = open_out destination
 and k = ref 127
 and sof = string_of_float
 and anti_demi_ton = 0.5 ** un_douzieme
 and frequences = Array.make 128 0. in
  frequences.(!k) <- 1e3 ;
  for i = 126 downto 0 do
   frequences.(i) <- frequences.(!k) *. anti_demi_ton ;
   k := i ;
  done ;
  for i = 0 to 127 do
   let pouls = facteur_pulsation *. frequences.(i) in
    let c = cos ( pouls )
    and s = sin ( pouls ) in
     output_string oc ( ( sof c ) ^ "\n" ^ ( sof s ) ^ "\n" ) ;
  done ;
  close_out_noerr oc