{- Lab 1
   Authors:
   Lab group:
 -}
---------------------------------------------
power :: Integer -> Integer -> Integer
power n k
   | k < 0 = error "power: negative argument"
power n 0  = 1
power n k  = n * power n (k-1)

-- A -------------------------
-- stepsPower n k gives the number of steps that
-- power n k takes to compute

stepsPower :: Integer -> Integer -> Integer
stepsPower n k = undefined 


-- B -------------------------
-- power1

power2 = undefined

-- C -------------------------
-- power2

power3 = undefined

-- D -------------------------
{- 

<Describe your test cases here>

 -}

-- comparePower1
comparePower1 = undefined

-- comparePower2
comparePower2 = undefined

-- Test functions: