title: Converting a BinaryTree to a Tree?
body: <p>I have 2 classes: One which is a Tree which can have N subtrees, and BinaryTree can have at most 2 subtrees.</p>
  
  <p>The classes are defined like so:</p>
  
  <pre><code>data Tree a = EmptyTree | Tree a [Tree a] deriving (Show, Ord, Eq)
  data BinTree a = EmptyBin | Node a (BinTree a) (BinTree a) deriving (Show, Ord, Eq)
  </code></pre>
  
  <p>Is there a way I could convert a BinaryTree into a Tree?</p>
  
  <p>Thanks</p>