MOD = 998244353i64
n = read_line.to_i
a = read_line.split.map(&.to_i64)
c = Array.new(20, 0)
n.times do |v|
  c.size.times do |i|
    c[i] += v.bit(i)
  end
end
ans = 0i64
n.times do |i|
  c.size.times do |j|
    ans += ((a[i] << j) % MOD) * (i.bit(j) == 0 ? c[j] : n - c[j])
    ans %= MOD
  end
end
puts ans