(load "main.carp")

(inline-c "int count_set_bits(int n) {
  int count = 0;
  while (n) {
    count += n & 1;
    n >>= 1;
  }
  return count;
}")
(register count-set-bits (Fn [Int] Int) "count_set_bits")

(defn main [] (println* &(count-set-bits 462)))