floor package:base-prelude

floor x returns the greatest integer not greater than x