getFee :: Word64 -> Int -> Word64
getFee kbfee count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize count [] 2 0
getFee :: Word64 -> Int -> Word64
getFee kbfee count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize count [] 2 0
getFee kbfee count =
    kbfee*((len + 999) `div` 1000)
  where
    len = fromIntegral $ guessTxSize count [] 2 0