doStep :: [Def]
doStep = doStepDef : getCapacity ++ createEnv ++ add ++ anotherBottle ++ greater
doStep :: [Def]
doStep = doStepDef : getCapacity ++ createEnv ++ add ++ anotherBottle ++ greater
doStep = doStepDef : getCapacity ++ createEnv ++ add ++ anotherBottle ++ greater