floor package:ihaskell

floor x returns the greatest integer not greater than x