mit Basis 1/B und Ziffern ∈{0...B - 1}
bezeichnet Limes der Werte der endlichen Partialfolgen
decimal :: Rational -> [ Nat ] decimal x = let q = truncate (fromRational x) in q : decimal (10 * (x-q))