module Main where

import Prelude

import Control.Monad.Eff.Console (log, logShow)

import Data.Map
import Data.Tuple

a = fromFoldable [Tuple 1 1, Tuple 0 0]
b = fromFoldable [Tuple 2 2, Tuple 3 3]
c = fromFoldable [Tuple 0 0, Tuple 3 3, Tuple 1 1, Tuple 2 2]

main = do
  log (showTree (a `union` b))
  log (showTree c)
  logShow ((a `union` b) == c)