{-# LANGUAGE OverloadedLists #-}

import Data.Set as S

main :: IO ()
main = do
  let x = [i | i <-[1,2,3]] :: S.Set Int
      -- x = [1,2,3] :: S.Set Int -- this works
  print x