let
open_dev dev =
let
(x,d) = usb_open dev.usb_device
in
if
is_null x
then
None
else
Some
x