import Control.Monad
import Control.Applicative
import Data.Char

text = "А Роза упала на лапу Азора"
estjPalindrom = (reverse >>= (==)) . map toLower . filter (/=' ')

main = print (estjPalindrom text)