reproduce.fut

import "u256"

let popcount (n: u32): i32 =
  loop ret = 0 for i in 0..<32 do
    ret + u32.get_bit i n

let main: []u256.t =
  map (\x ->
    map (\y -> popcount (x ^ y) >= 4) (0..<2**10)
      |> u256.pack
  ) (0..<2**10)