Basic_disk
type file = {
name : string;
dialect : Basic_run.dialect;
lines : string list;
}
val files : file list
val guess : string list
val catalog : file list -> string