structure FileMessage =
struct
  datatype t =
    SAVE_SQUARES of {output: string, filepath: string}
  | LOAD_SQUARES of {filepath: string}
  | EXPORT_SQUARES of {output: string, filepath: string}
  | EXPORT_COLLISIONS of {output: string, filepath: string}
end