Resolved #4, moved functions to Effects.hs, reworked Main.hs