{-# htermination insert :: Float -> [Float] -> [Float] #-}
import List