module Test
where

import Debug.Trace

-- Sum up a list of integers
--
sumList :: [Int] -> Int
sumList []     = 0
sumList (x:xs) = trace ("Recursive case of sumList: adding " ++ show x)
		   (x + sumList xs)

-- Sum of 1 up to the given integer
--
sumUpto :: Int -> Int
sumUpto n = trace ("Entering sumUpto with argument " ++ show n) 
	      (sumList [1..n])