printTree :: Show a => Tree a -> IO ()
printTree t = putStrLn (drawTree (fmap show t))
printTree :: Show a => Tree a -> IO ()
printTree t = putStrLn (drawTree (fmap show t))
printTree t = putStrLn (drawTree (fmap show t))