implementiere
append :: [a] -> [a] -> [a] -- append "foo" "bar" = "foobar"
append [] ys = ??? append (x : xs) ys = ???