-- formula based approach i.e, 40C20
main :: IO ()
main = putStr $ show $ div (product [21..40]) (product [1..20])