My attempt at Haskell USB