prettyInstruction _ _ (BinopLit16 op dst src i) =
  mkInsn (binopStr op <> "-int/lit16")
         [iregStr8 dst, iregStr8 src, "#int " <> int16Dec i] <>
  intComm16' (fromIntegral i)
prettyInstruction _ _ (BinopLit16 op dst src i) =
  mkInsn (binopStr op <> "-int/lit16")
         [iregStr8 dst, iregStr8 src, "#int " <> int16Dec i] <>
  intComm16' (fromIntegral i)
prettyInstruction _ _ (BinopLit16 op dst src i) =
  mkInsn (binopStr op <> "-int/lit16")
         [iregStr8 dst, iregStr8 src, "#int " <> int16Dec i] <>
  intComm16' (fromIntegral i)