import Data.List (sort)
isAnagram :: String -> String -> Bool
isAnagram s1 s2 = sort s1 == sort s2
isAnagramWithin :: String -> String -> Bool
isAnagramWithin shortStr = isAnagramWithin'
where shortLen = length shortStr
isAnagramWithin' [] = False
isAnagramWithin' longStr'@(_:ls) = let longLen' = length longStr'
in longLen' >= shortLen &&
(isAnagram shortStr (take shortLen longStr') || isAnagramWithin' ls)
main :: IO ()
main = do
s1 <- getLine
s2 <- getLine
print $ isAnagramWithin s1 s2