This commit is contained in:
swrup 2026-02-08 14:37:24 +01:00
parent c5031280d5
commit 071e4d0d48

View file

@ -77,6 +77,7 @@ let f records =
List.filter (fun v -> v.number >= 1000_l) List.filter (fun v -> v.number >= 1000_l)
let read_file file = In_channel.with_open_bin file In_channel.input_all let read_file file = In_channel.with_open_bin file In_channel.input_all
let file_header = {|...|}
let () = let () =
let content = read_file "registry.rec" in let content = read_file "registry.rec" in