Project Euler Problem 005

m :: Integer
m= foldl1 lcm [1..20]
-- 232792560
main :: IO ()
main = print m