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