fortune

   1 #!/usr/bin/awk -f
   2 # Fortune implementation in awk
   3
   4 BEGIN {
   5   "date +%N" | getline time
   6   srand(time)
   7   "grep '%' " ARGV[1] " | wc -l" | getline n
   8   line = int(rand() * n)
   9 }
  10
  11 /%/ {
  12   if (p) {
  13     exit
  14   }
  15   z++
  16   next
  17 }
  18
  19 z == line {
  20   print $0
  21   p = 1
  22 }