-- addup xs returns the sum of the numbers in
-- the list xs.  For example:
--   addup [1,2,3] = 6

addup            :: [Int] -> Int
addup []          = 0
addup            :: [Int] -> Int
addup []          = 0
addup []          = 0