getMSFee :: Word64 -> (Int, Int) -> Int -> Word64
getMSFee kbfee ms count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize 0 (replicate count ms) 2 0

-- | Computes an upper bound on the size of a transaction based on some known
-- properties of the transaction.
getMSFee :: Word64 -> (Int, Int) -> Int -> Word64
getMSFee kbfee ms count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize 0 (replicate count ms) 2 0

-- | Computes an upper bound on the size of a transaction based on some known
-- properties of the transaction.
getMSFee kbfee ms count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize 0 (replicate count ms) 2 0

-- | Computes an upper bound on the size of a transaction based on some known
-- properties of the transaction.