sig
  val parse_code : JLib.IO.input -> int -> JClassLow.opcode array
  val unparse_code : 'a JLib.IO.output -> JClassLow.opcode array -> unit
  exception OpcodeLengthError of int * JClassLow.opcode
  val parse_full_opcode : JLib.IO.input -> (unit -> int) -> JClassLow.opcode
  val unparse_instruction :
    'a JLib.IO.output -> (unit -> int) -> int -> JClassLow.opcode -> unit
end