~cpp
module Palindrome
	where

palindrome string = (string == (reverse string))

~cpp
Palindrome> palindrome "hahaha"
False
Palindrome> palindrome "eye"
True
Palindrome>