to EDigits :n localmake "b LongPower "10 :n + 3 localmake "s :b localmake "c :b localmake "k 0 while [not (:c = "0)] [ make "k :k + 1 make "c LongDiv :c (word :k) make "s LongSum :s :c ] output (word first :s ". bf bl bl bl :s) make "s LongSum :s "500 end