pal.hs

module Main
    where

import Char

isPal :: (Monad m) => [Char] -> m Bool
isPal str =
    let _str = (map Char.toLower str) in
    if length _str == 1 then
        return True
    else
        if head _str == last _str then
            isPal ((init . tail) _str)
        else
            return False