prettyInstruction _ a (If op r1 r2 off) =
  mkInsn ("if-" <> ifOpStr op)
         [ iregStr8 r1, iregStr8 r2
         , word16HexFixed (fromIntegral (a + fromIntegral off))
         ]
  <> offComm off
prettyInstruction _ a (If op r1 r2 off) =
  mkInsn ("if-" <> ifOpStr op)
         [ iregStr8 r1, iregStr8 r2
         , word16HexFixed (fromIntegral (a + fromIntegral off))
         ]
  <> offComm off
prettyInstruction _ a (If op r1 r2 off) =
  mkInsn ("if-" <> ifOpStr op)
         [ iregStr8 r1, iregStr8 r2
         , word16HexFixed (fromIntegral (a + fromIntegral off))
         ]
  <> offComm off