sum :: Int -> Int

sum x | x==0      = 0
      | otherwise = x + sum(x-1)

sum( arg1 )
