simulateN :: (CostStep t,Floating float) => Int -> t float -> (float, t float)
simulateN n initState = apply n simStep initState & simCost &&& id
simulateN :: (CostStep t,Floating float) => Int -> t float -> (float, t float)
simulateN n initState = apply n simStep initState & simCost &&& id
simulateN n initState = apply n simStep initState & simCost &&& id