module Main where main :: IO () main = putStrLn "This is MainA"