needles = ["a", "b"]
actualDivs = ["c", "d", "a"]

main = mapM_ (\div -> mapM_ print needles) actualDivs