{-# htermination sum :: [Float] -> Float #-}