bubbleSortList :: [ Int ] -> [ Int ]
bubbleSortList [] = []
bubbleSortList (x:xs) = stufe (foldl naechster (x,[]) xs)
	where
		naechster(y,t) x = (min x y, max x y :t)
		stufe(x,t) = x : bubbleSortList t