let rec string_of_buffer buf = match buf with
    cur::rest -> String.concat "" [(Bmdirc.string_of_instruction cur);"\n";(string_of_buffer rest)]
  | [] -> ""