local fn K_Prime( n as long, k as long ) as BOOL
  long f = 0, i = 0
  BOOL result

  for i = 2 to n
    while ( n mod i == 0 )
      if f = k then exit fn = NO
      f += 1
      n /= i
    wend
  next
  result = f = k
end fn = result


long i, c, k

for k = 1 to 5
  printf @"k = %ld:\b", k
  i = 2
  c = 0
  while ( c < 10 )
    if ( fn K_Prime( i, k ) )
      printf @"%4ld\b", i
      c++
    end if
    i++
  wend
  print
next

HandleEvents