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