palindrom in haskell

gistfile1.hs

palindrom [] =  True    -- empty string
palindrom [_] =  True   -- a character
palindrom xs = (x == y) && (palindrom middle)
              where x = head xs
                    y = last xs
                    middle = init (tail xs)