type file_attrs = {
  is_metadata : bool;
  is_as3      : bool;
  use_network : bool;
}
type alist = (int * string) list

type product_info = {
  product_id   : int32;
  edition      : int32;
  major        : int;
  minor        : int;
  build_number : int64;
  compile_date : int64;
}

type 'a t = [
(*| `PlaceObject of int * int * SwfType.matrix*)
| `FrameLabel of string * bool
| `Protect
| `End
| `ExportAssets of alist
| `ImportAssets of string * alist
| `EnableDebugger of string
| `DebugID of string
| `EnableDebugger2 of string
| `ScriptLimits of int * int
| `SetTabIndex of int * int
| `FileAttributes of file_attrs
| `ImportAssets2 of string * alist
| `SymbolClass of alist
| `Metadata of string
| `DefineScalingGrid of int * SwfType.rect
| `DefineSceneAndFrameLabelData of (int32 * string) list * (int32 * string) list
| `ShowFrame
| `SetBackgroundColor of int * int * int
| `DoABC of bool * string * 'a
| `ProductInfo of product_info
]