import "io"

let names = table "zero", "one", "two", "three", "four",
                  "five", "six", "seven", "eight", "nine"

let say(n) be
  out("%s ", names ! n)

let f(x, base) be
{ let a = x/base, b = x rem base;
  say(b);
  if a > 0 then 
    f(a, base);
  say(b) }

let start() be
{ let x, y, z;
  y := 1739;
  f(y-3, 10);
  outch('\n') }