int64ToDouble :: Int64 -> Double
int64ToDouble =
  either (const (0/0)) id .
  runGet getFloat64le .
  runPut .
  putWord64le .
  fromIntegral
int64ToDouble :: Int64 -> Double
int64ToDouble =
  either (const (0/0)) id .
  runGet getFloat64le .
  runPut .
  putWord64le .
  fromIntegral
int64ToDouble =
  either (const (0/0)) id .
  runGet getFloat64le .
  runPut .
  putWord64le .
  fromIntegral