100 REM EGYPT Fraction
110 REM converts a/b to a sum of fractions of numerator 1.
120 REM Enter two number a,b with a<b
130 INPUT a,b
140 DO UNTIL a=0
150    LET n=CEIL(b/a)
160    PRINT "+ 1/" ; n ; 
170    LET a=n*a-b
180    LET b=n*b
190 LOOP
200 END
