+ show = showFixed False
+
+
+data E0 = E0 deriving (Typeable)
+instance HasResolution E0 where
+ resolution _ = 1
+-- | resolution of 1, this works the same as Integer
+type Uni = Fixed E0
+
+data E1 = E1 deriving (Typeable)
+instance HasResolution E1 where
+ resolution _ = 10
+-- | resolution of 10^-1 = .1
+type Deci = Fixed E1
+
+data E2 = E2 deriving (Typeable)
+instance HasResolution E2 where
+ resolution _ = 100
+-- | resolution of 10^-2 = .01, useful for many monetary currencies
+type Centi = Fixed E2
+
+data E3 = E3 deriving (Typeable)
+instance HasResolution E3 where
+ resolution _ = 1000
+-- | resolution of 10^-3 = .001
+type Milli = Fixed E3
+
+data E6 = E6 deriving (Typeable)