1 2 3 4 5 6
module Imag where -- newtype Imag = Imag { getImag :: Float } -- instance Show Imag where -- show (Imag i) = show i ++ "i"