module DataTypeUtils(module DataTypeUtils, module DataTypes) where 
import DataTypes

fullTree :: Int -> a -> Tree a
fullTree 0 a = Leaf a
fullTree n a = Bin t t 
  where t = fullTree (n-1) a