let main () =
  let bits = AsmUtil.read_from_file (Sys.argv.(1)) in

  let rec loop bits =
    if AsmUtil.more bits then begin
      let ins, bits = X86Parse.read_instr bits in
      Format.printf "%a@\n@?" X86Print.pp_instr ins;
      loop bits
    end in

  loop bits