sub is_int {
  $_[0] == int $_[0];
}