print $ip->numeric->[0], "\n";