PROGRAM	"Combinations"
VERSION	"0.0000"

DECLARE FUNCTION Entry ()
DECLARE FUNCTION iterate (curr$, start, stp, depth)

FUNCTION Entry ()
n = 3
m = 5
outstr$ = ""
iterate(outstr$, 0, m - 1, n - 1)

END FUNCTION

FUNCTION iterate (curr$, start, stp, depth)
  FOR i = start TO stp
  IF depth = 0 THEN PRINT curr$ + " " + STR$(i)
  iterate(curr$ + " " + STR$(i), i + 1, stp, depth - 1)
  NEXT i
  RETURN
END FUNCTION
END PROGRAM