external lzma_code: strm:lzma_stream -> action:lzma_action ->
  next_in:string -> next_out:string ->
  ofs_in:int -> ofs_out:int -> int * int
  = "caml_lzma_code_bytecode"
    "caml_lzma_code_native"