F farey(n)
   V a = 0
   V b = 1
   V c = 1
   V d = n
   V far = ‘0/1 ’
   V farn = 1
   L c <= n
      V k = (n + b) I/ d
      (a, b, c, d) = (c, d, k * c - a, k * d - b)
      far ‘’= a‘/’b‘ ’
      farn++
   R (far, farn)

L(i) 1..11
   print(i‘: ’farey(i)[0])

L(i) (100..1000).step(100)
   print(i‘: ’farey(i)[1]‘ items’)