···11+let () =
22+ Eio_main.run @@ fun env ->
33+ let args = Sys.argv in
44+ if Array.length args < 2 then (
55+ Printf.eprintf "Usage: %s <cookies.txt>\n" args.(0);
66+ exit 1
77+ );
88+ let file_path = args.(1) in
99+ let fs = Eio.Stdenv.fs env in
1010+ let clock = Eio.Stdenv.clock env in
1111+ let path = Eio.Path.(fs / file_path) in
1212+ let jar = Cookeio_jar.load ~clock path in
1313+ Format.printf "%a@." Cookeio_jar.pp jar