-treeSum i xs | i < 1 = head xs
- | otherwise = let (a,b) = split xs
- in (treeSum (i-1) a) +
- (treeSum (i-1) b)
+{-"{\color<3>[rgb]{1,0,0}"-}treeSum i xs | i < 1 = head xs{-"}"-}
+{-"{\color<3>[rgb]{1,0,0}"-} | otherwise = let (a,b) = split xs{-"}"-}
+{-"{\color<3>[rgb]{1,0,0}"-} in (treeSum (i-1) a) +{-"}"-}
+{-"{\color<3>[rgb]{1,0,0}"-} (treeSum (i-1) b){-"}"-}