[add Binary instance for Word
John Meacham <john@repetae.net>**20061218064603] hunk ./Binary.hs 279
+
+instance Binary Word where
+    put_ bh i = put_ bh (fromIntegral i :: Word32)
+    get  bh = do
+	x <- get bh
+	return $! (fromIntegral (x :: Word32))