let muse ?(configuration = Tools.Muse.Configuration.default `WGS) =     variant_caller "muse"       configuration.Tools.Muse.Configuration.name