12 lines
289 B
Text
12 lines
289 B
Text
line =
|
|
i = 1
|
|
LOOP le(i, 10) :F(LOOP.END)
|
|
line = line i
|
|
eq(remdr(i, 5), 0) :S(LOOP.OUT)
|
|
line = line ', ' :(LOOP.INC)
|
|
LOOP.OUT OUTPUT = line
|
|
line =
|
|
LOOP.INC i = i + 1 :(LOOP)
|
|
LOOP.END OUTPUT = line
|
|
|
|
END
|