example/almost_prime.pn added

see http://rosettacode.org/wiki/Almost_prime
converted from the C version

example/almost_prime.pn

@@ -0,0 +1,23 @@
+kprime = (n, k):
+  p = 2, f = 0
+  while (f < k && p*p <= n):
+    while (0 == n % p):
+      n /= p
+      f++.
+    p++.
+  n = if (n > 1): 1
+  . else: 0.
+  f + n == k.
+
+k = 1
+while (k <= 5):
+  "k = " print, k print, ":" print
+  i = 2, c = 0
+  while (c < 10):
+    if (kprime(i, k)):
+      " " print, i print
+      c++.
+    i++
+  .
+  k++
+  "" say.