sub is_zero {
  abs($_[0]) < 1e-10
}