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