// Example: I96c40e1
print "Example: I96c40e1";
previous_setting := GetEchoInput();
SetEchoInput(true);
spherepacking := function(C)
  q := #Field(C);
  n := Length(C);
  M := #C;
  t := (MinimumWeight(C) - 1) div 2;
  return q^n -
    M*(&+[ Binomial(n, i)*(q-1)^i : i in [0..t] ]);
end function;
SetEchoInput(previous_setting);
