sums_Of_Subsets list = sums_list list []
  where sums_list original_list result_list | null original_list = result_list
        sums_list original_list result_list = sums_list (tail original_list) (result_list ++ [(sum original_list)])