import Char

schreibGroß :: Char -> Char
schreibGroß c = if kleinBuch c
		then chr (ord c + abstand)
		else c

kleinBuch :: Char -> Bool
kleinBuch c = 'a' <= c  && c <= 'z'

abstand :: Int
abstand = ord 'A' - ord 'a'