(frac 0 0)

[Danilo Kordic]

Is this an error or a feature?  I would move denominator test to front.

Another quoestion: How to get all decimals from reader.
How about:
: (any "3.14159")
-> (* 314159 (** 10 -5))