constString _ (ConstWideHigh16 i) =
  "#long " <> int64Dec i <> intComm16 (fromIntegral (i `shiftR` 48) :: Word16)
constString _ (ConstWideHigh16 i) =
  "#long " <> int64Dec i <> intComm16 (fromIntegral (i `shiftR` 48) :: Word16)
constString _ (ConstWideHigh16 i) =
  "#long " <> int64Dec i <> intComm16 (fromIntegral (i `shiftR` 48) :: Word16)