let init n f = sinit Strategy.default n f