main = do
  [n, k] <- map read . words <$> getLine
  as <- map read . words <$> getLine
  putStr $ solve as k

solve as k
  | maximum as < k = "IMPOSSIBLE"
  | odd k && all even as = "IMPOSSIBLE"
  | otherwise = "POSSIBLE"