sub integer1 {
    int($_[0]+ 1e-5);
}