extractByteString :: Value -> BCH.ByteString
  extractByteString (String t) = BCH.pack $ T.unpack t
extractByteString :: Value -> BCH.ByteString
extractByteString (String t) = BCH.pack $ T.unpack t
extractByteString (String t) = BCH.pack $ T.unpack t