$module Palindrome;

$use StdIO;
$use Reverse;

$func? IsPalindrome e.expr = ;
IsPalindrome \{
	/*empty*/ = ;
	t = ;
	t1 e2 t1 = <IsPalindrome e2>;
};

$func? IsPalindrome2 e.expr = ;
IsPalindrome2 e.expr =
	<Reverse e.expr> : e.expr;

$func Main = e;

Main = {
	<IsPalindrome2 <ReadLine>> = <PrintLn "Палиндром :)">;
	<PrintLn "Не палиндром :(">;
};