main :: IO ()
main = do
  putStrLn "Da Ihnen in dieser Aufgabe Platz für Kreativität eingeräumt wurde,"
  putStrLn "lässt sich Ihre Lösung leider nicht automatisiert überprüfen."