import Data.List (sort) judge :: [String] -> String judge (a : b : _) = if (sort a) == (sort b) then "YES" else "NO" main :: IO () main = putStrLn . judge . lines =<< getContents