Update Effects.sml
Mere Effects