{-# LANGUAGE OverloadedStrings #-}

duplicate:: a -> [a]
duplicate input = [input, input]

main :: IO ()
main = do
  let result = [1,2] >>= duplicate
  print result