Using Function Composition

palindrome3 =

palindrome . filterAlpha . mapLower

where filterAlpha s = filter isAlpha s

mapLower s = map toLower s

palindrome3 s =

palindrome

(filter isAlpha (map toLower s))