main = print (length comp_list)
 where
    comp_list :: [(Int,Int)]
    comp_list = [ (elem1,elem2)
                | elem1 <- given_list,
                  elem2 <- given_list,
                  elem1 >= (4::Int),
                  elem2 <  (3::Int)
                ]

    given_list :: [Int]
    given_list = [1,2,3,4,5,6,7,8,9]
