append :: List a -> List a -> List a
ist assoziativ
reverse :: List a -> List a
reverse (reverse xs) == xs