doAdmin :: GMState -> GMState
doAdmin s = putStats (statIncSteps (getStats s)) s
doAdmin :: GMState -> GMState
doAdmin s = putStats (statIncSteps (getStats s)) s
doAdmin s = putStats (statIncSteps (getStats s)) s