let aux = fun (adresse:string) (decalage:int) (c:int) ->
 let oc = open_out_gen [Open_binary ; Open_wronly] 0o644 adresse in
  seek_out oc decalage ;
  output_byte oc c ;
  flush_all () ;
  close_out_noerr oc