Rational +pretty

rational :: Rational -> Doc
pretty Text.PrettyPrint.HughesPJ, pretty Text.PrettyPrint