--- /dev/null
+#!/usr/bin/awk -f
+# Fortune implementation in awk
+
+BEGIN {
+ "date +%N" | getline time
+ srand(time)
+ "grep '%' " ARGV[1] " | wc -l" | getline n
+ line = int(rand() * n)
+}
+
+/%/ {
+ if (p) {
+ exit
+ }
+ z++
+ next
+}
+
+z == line {
+ print $0
+ p = 1
+}