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