DrIFT-2.4.0: example/Xref.hs

import Binary

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