module Main where import Aufgabe4 main :: IO () main = putStrLn result