RosettaCodeData/Task/Parametric-polymorphism/Clean/parametric-polymorphism-2.clean

instance Functor Tree where
    fmap f Empty        = Empty
    fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)
	`instance Functor Tree where`
	`fmap f Empty = Empty`
	`fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)`