let log {host; action} = Log.(s "Action: " % Program.log action % s " on " % s (Host.to_string_hum host))