import qualified Data.Set as S

setA :: S.Set String
setA = S.fromList ["alpha", "beta", "gamma", "delta", "epsilon"]

setB :: S.Set String
setB = S.fromList ["delta", "epsilon", "zeta", "eta", "theta"]

main :: IO ()
main = (print . S.toList) (S.intersection setA setB)