module Main where
  allEven :: [Integer] -> [Integer]
  allEven [] = []
  allEven (h:t) = if even h then h:allEven t else allEven t

  -- >>> :t allEven
  -- allEven :: [Integer] -> [Integer]
  --

  main :: IO()
  main =
    print "yes"