import Prelude hiding (gcd,lcm)
import Data.List (foldl')

gcd a b  =
  if b == 0
     then a
     else gcd b (a `mod` b)

lcm a b = (a * b) `div` (gcd a b)

solution = foldl' lcm 1 [1..20]

main = do print solution
