main :: IO ()
main = putStr $ show solve

solve :: Integer
solve = foldl1 lcm [1 .. 20]