let program ?(returns=0) ?host p =
    `Command_returns (Ketrew_target.Command.program ?host p, returns)