main = do
    h <- getFirstDevice
    print =<< getDeviceVersion h
    releaseDevice h
    closed <- isClosed h
    print closed
    print =<< getDeviceVersion h
main = do
    h <- getFirstDevice
    print =<< getDeviceVersion h
    releaseDevice h
    closed <- isClosed h
    print closed
    print =<< getDeviceVersion h
main = do
    h <- getFirstDevice
    print =<< getDeviceVersion h
    releaseDevice h
    closed <- isClosed h
    print closed
    print =<< getDeviceVersion h