import Data.Char (chr, digitToInt)

main :: IO ()
main = getContents >>=
       putStr . map (chr . foldl (\acc x -> acc * 2 + digitToInt x) 0) . words