copperizeAndFormat
  :: Seq (Transaction ())
  -- ^
  -> Either (NonEmptySeq (TracompriError ())) (WholeFile Char ())
copperizeAndFormat
  = fmap (formatWholeFile 4)
  . Accuerr.accuerrToEither
  . tracompriWholeFile
  . fmap Tracompri'Transaction
copperizeAndFormat
  :: Seq (Transaction ())
  -- ^
  -> Either (NonEmptySeq (TracompriError ())) (WholeFile Char ())
copperizeAndFormat
  = fmap (formatWholeFile 4)
  . Accuerr.accuerrToEither
  . tracompriWholeFile
  . fmap Tracompri'Transaction
copperizeAndFormat
  = fmap (formatWholeFile 4)
  . Accuerr.accuerrToEither
  . tracompriWholeFile
  . fmap Tracompri'Transaction