sendCommand::Handle->B.ByteString->IO ()
sendCommand handle payload = do
  let theData2 = runPut $ ethereumHeader payload
  BL.hPut handle theData2
sendCommand::Handle->B.ByteString->IO ()
sendCommand handle payload = do
  let theData2 = runPut $ ethereumHeader payload
  BL.hPut handle theData2
sendCommand handle payload = do
  let theData2 = runPut $ ethereumHeader payload
  BL.hPut handle theData2