let log {host; root; structure} = Log.(braces ( parens (Ketrew_host.log host) % sp % parens (s "Root: " % s (Path.to_string root)) % sp % parens (s "Tree: " % log_structure structure) ))