
index :: Int -> [Int] -> Int
index k l = let
  helper [] _ = -1
  helper (x:xs) i | x == k = i
                  | otherwise = helper xs (i + 1
sumOfDigits :: Int -> Int
sumOfDigits = undefined
sumOfDigits = undefined