#  Simple demonstration of standard "bitcount" function

link cfunc			# link standard C functions transparently

procedure main()
   local i

   every i := 500 to 520 do
      write(i, "  ", bitcount(i))
end