structure FileMessage =
struct
  datatype t =
    SAVE_SQUARES of string
  | LOAD_SQUARES
  | EXPORT_SQUARES of string
  | EXPORT_COLLISIONS of string
end