let from_file file_name =
    let channel = open_in file_name in
    let result = Marshal.from_channel channel in
    close_in channel;
    result