erhoehe _ [] = []
erhoehe i (x:xs)
	| i == 0 = (x+1):xs
	| otherwise = x:(erhoehe (i-1) xs)
	
verbinde guard fkt = \x -> if guard x then fkt x else x