let cherche_midi = function (adresse:string) ->
 let ic = open_in_gen [Open_binary ; Open_rdonly] 0o400 adresse in
  ignore ( input_byte ic ) ;
  print_string adresse ;
  print_newline () ;
  close_in_noerr ic ;
  Sys.command "killall CHERCHE_MIDI"