palindrom :: [Char] -> Bool
palindrom [] = False
palindrom s
	| reverse s == s = True
	| reverse (sonder s) == sonder s = True
	| otherwise = False
-- Hier gehts los mal Sehen
l3 :: [Char]
l3 = ['a','A','b','c']
-- ursprünglich vorhandene Leerzeichen, Tabulatoren und Zeilenumbrüche sollen entfernt werden.
--Große Buchstaben 65 - 90
--kleine Buchstaben 97-122
--ord 'chr -> Zahl in asci
--chr zahl -> asci zeichen
meinecharklein :: [Char]
meinecharklein = ['a'..'z']

meinechargro :: [Char]
meinechargro = ['A'..'Z']

ischar :: Char -> Bool
ischar c = c `elem` meinecharklein || c `elem` meinechargro

sonder :: [Char] -> [Char]
sonder x = [gucker y|y<-(filter ischar x)] 

--sonder2 ::[Char] -> [Char]
--sonder2 li = [gucker x|x<-li]

anwe :: [Char] -> [Char]
anwe [] = []
anwe (x:xs) = gucker x : anwe xs

gucker :: Char -> Char
gucker a
	| a=='A' || a=='a' = 'a'
	| a=='B' || a=='b' = 'b'
	| a=='C' || a=='c' = 'c'
	| a=='D' || a=='d' = 'd'
	| a=='E' || a=='e' = 'e'
	| a=='F' || a=='f' = 'f'
	| a=='G' || a=='g' = 'g'
	| a=='H' || a=='h' = 'h'
	| a=='I' || a=='i' = 'i'
	| a=='J' || a=='j' = 'j'
	| a=='K' || a=='k' = 'k'
	| a=='L' || a=='l' = 'l'
	| a=='M' || a=='m' = 'm'
	| a=='N' || a=='n' = 'n'
	| a=='O' || a=='o' = 'o'
	| a=='P' || a=='p' = 'p'
	| a=='Q' || a=='q' = 'q'
	| a=='R' || a=='r' = 'r'
	| a=='S' || a=='s' = 's'
	| a=='T' || a=='t' = 't'
	| a=='U' || a=='u' = 'u'
	| a=='V' || a=='v' = 'v'
	| a=='W' || a=='w' = 'w'
	| a=='X' || a=='x' = 'x'
	| a=='Y' || a=='y' = 'y'
	| a=='Z' || a=='z' = 'z'