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