+{-# SPECIALIZE instance Eq [Int] #-}
+{-# SPECIALIZE instance Ord [Int] #-}
+{-# SPECIALIZE instance Text [Int] #-}
+
+{-# SPECIALIZE instance Eq [Integer] #-}
+{-# SPECIALIZE instance Ord [Integer] #-}
+{-# SPECIALIZE instance Text [Integer] #-}
+
+--NO:{-# SPECIALIZE instance Eq [Float] #-}
+--NO:{-# SPECIALIZE instance Ord [Float] #-}
+--NO:{-# SPECIALIZE instance Text [Float] #-}
+
+{-# SPECIALIZE instance Eq [Double] #-}
+{-# SPECIALIZE instance Ord [Double] #-}
+{-# SPECIALIZE instance Text [Double] #-}
+
+{-# SPECIALIZE instance Eq [Bool] #-}
+{-# SPECIALIZE instance Ord [Bool] #-}
+{-# SPECIALIZE instance Text [Bool] #-}
+
+{-# SPECIALIZE instance Eq [[Char]] #-}
+{-# SPECIALIZE instance Ord [[Char]] #-}
+{-# SPECIALIZE instance Text [[Char]] #-}
+
+{-# SPECIALIZE instance Eq [[Int]] #-}
+{-# SPECIALIZE instance Ord [[Int]] #-}
+{-# SPECIALIZE instance Text [[Int]] #-}
+
+{-# SPECIALIZE instance Eq [Complex Double] #-}
+{-# SPECIALIZE instance Text [Complex Double] #-}
+
+{-# SPECIALIZE instance Eq [(Int,Int)] #-}
+