DrIFT-cabalized-2.2.3.1: example/Xref.hs

import Binary

data Index a = Empty
             | Branch (Index a) string [a] (Index a)
             {-!derive : Binary!-}