let create
?(host=Ketrew_host.tmp_on_localhost)
?(daemonize_using=`Python_daemon)
?(daemon_start_timeout=20.)
program =
let created = {host; program; daemonize_using; daemon_start_timeout} in
`Long_running (name, `Created created |> serialize)