main :: IO ()
main = putStrLn $ show (a + b + c + d)
    where
        a = 9
        b = 10
        c = 10
        d = 1