void local fn Combinations( currStr as CFStringRef, start as int, stp as int, depth as int )
  int i

  for i = start to stp
    if depth = 0 then printf @"%@  %d", currStr, i
    fn Combinations( fn StringWithFormat( @"%@  %d", currStr, i ), i+1, stp, depth-1 )
  next
end fn

int n : n = 3
int m : m = 5

printf @"  %d combinations of integers 0 through %d are:", n, m-1
fn Combinations( @"", 0, m-1, n-1 )

HandleEvents