main.hs - add exponentiation