let get_busses_list () = 
  let rec aux b =
    if is_null b 
    then []
    else (bus_of_usb_bus b) :: (aux (usb_bus_next b))
  in   
  let i=usb_find_busses () in (*verificare che sia veramente necessario farlo tutte le volte*)
  let j=usb_find_devices () in
    aux (usb_get_busses ())