do
  x <- sample $ randomElement  [1, 2, 3]
  print x