module M where f :: Double -> Double -> Bool f x y = if x < y then True else False