floor package:ghc-internal

floor x returns the greatest integer not greater than x