-- $Id: Tree.hs,v 1.1 1998/01/25 19:25:29 leavens Exp $

-- One way to do trees in Haskell

-- AUTHOR: Gary T. Leavens

module Tree where

data Tree a = Node a [Tree a]
              deriving Eq

root :: Tree a -> a
root (Node r _) = r