prettyInstruction _ _ (ArrayOp op val arr idx) =
  mkInsn'8 ("a" <> accessOpStr op) [ val, arr, idx ]
prettyInstruction _ _ (ArrayOp op val arr idx) =
  mkInsn'8 ("a" <> accessOpStr op) [ val, arr, idx ]
prettyInstruction _ _ (ArrayOp op val arr idx) =
  mkInsn'8 ("a" <> accessOpStr op) [ val, arr, idx ]