please write code in Haskell. Use the function listcomp2 to implement the relation composition function compose you implemented earlier. Name function compose2

Here is the listcomp2 function

here is the compose function

compose :: [(Int, Int)] -> [(Int, Int)] -> [(Int, Int)]

compose x [] = []

compose [] x = []

compose (x:xs) y = removeduplicate $ [(fst x,t) | (s, t)

removeduplicate :: [(Int,Int)] -> [(Int, Int)]

removeduplicate x = foldl (\acc x -> if x `elem` acc then acc else x: acc) [] x

main:: 100) main -do print ( listcomp (* 3) (2,2,2,3,5,3,5,6,4,3,5,8), odd) listcomp: : (a->b)->[a]->(a->Bool)-> [b] listcomp fx g = [ft | tt2->a)->[t1]->[t2 ]->(t1->t2->Bool)->[a] listcomp2 f xs ys g = foldll (++) { listcomp (f x) ys (g x) | x