module Main (main) where instance Traversable Tree x :: Int x = 1