DrIFT-cabalized-2.2.3.1: example/BTree.hs

import Binary

data BTree k d = BTree Int [(k,[d])] [BTree k d]
           {-! derive : Binary !-}