import Storage.Hashed
import Storage.Hashed.Diff
import System( getArgs )
import qualified Data.ByteString.Lazy.Char8 as BL

main = do
  [a', b'] <- getArgs
  a <- readPlainTree a' >>= unfoldAll
  b <- readPlainTree b' >>= unfoldAll
  BL.unpack `fmap` diffTrees a b >>= putStr