`DECIMAL.TIN - lrb - 12/12/2010'
:"numerator"
n=?
;"denominator"
d=?
a=10
:n
;"/"
;d
;"="
;n/d
;"."
n=n%d
A a=a-1
{a==0}->B
n=10*n
;n/d
n=n%d
->A
B :""
:""
!