[Haskell-cafe] Is there a sample code for hdbus?