module Main where (<) :: Number -> Number -> Number (<) a b = !(a >= b)