DrIFT-2.4.0: example/BTree.hs

import Binary

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