Accompanying material for the paper "Generalizing Generalized Tries"
by Ralf Hinze, in Journal of Functional Programming, 10(4),
pp. 327-351, July 2000.

Internal nodes.

> module Fork (
>     Fork(Fork),
> ) where

> data Fork a			=  Fork a a
>				   deriving (Show)