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