firewall/firewall.ml

let json = Yojson.Basic.from_file "config.json"
let config = Config.of_json json
let compiled = Compile.compile config
let nftables = Nftables.to_json compiled

let () = Format.printf "%s\n" (Yojson.Basic.pretty_to_string nftables)