Create a simple function to compute a power

mypower.hs

@@ -0,0 +1,3 @@
+e1 x n = case n of
+	0 -> 1
+	_ -> x * e1 x (n - 1)