prettyInstruction _ _ (BinopLit8 op dst src i) =
  mkInsn (binopStr op <> "-int/lit8")
         [iregStr8 dst, iregStr8 src, "#int " <> int8Dec i] <>
  intComm8' (fromIntegral i)
prettyInstruction _ _ (BinopLit8 op dst src i) =
  mkInsn (binopStr op <> "-int/lit8")
         [iregStr8 dst, iregStr8 src, "#int " <> int8Dec i] <>
  intComm8' (fromIntegral i)
prettyInstruction _ _ (BinopLit8 op dst src i) =
  mkInsn (binopStr op <> "-int/lit8")
         [iregStr8 dst, iregStr8 src, "#int " <> int8Dec i] <>
  intComm8' (fromIntegral i)