import Control.Monad
import Data.Maybe
import Data.Queue
+import Data.Typeable
+
+#include "Typeable.h"
-- | Multi-way trees, also known as /rose trees/.
data Tree a = Node {
#endif
type Forest a = [Tree a]
+INSTANCE_TYPEABLE1(Tree,treeTc,"Tree")
+
instance Functor Tree where
fmap = mapTree