prettyInstruction _ a (Goto off) =
  "goto " <> word16HexFixed (fromIntegral (a + fromIntegral off)) <>
  offComm (fromIntegral off :: Int16)
prettyInstruction _ a (Goto off) =
  "goto " <> word16HexFixed (fromIntegral (a + fromIntegral off)) <>
  offComm (fromIntegral off :: Int16)
prettyInstruction _ a (Goto off) =
  "goto " <> word16HexFixed (fromIntegral (a + fromIntegral off)) <>
  offComm (fromIntegral off :: Int16)