sub floor {  $_[0] < 0  ?  -int(-$_[0])  :  int($_[0]);  }