https://www.colorless-sight.jp:443/wiki/?ProjectEular%2FProblem5
[[ProjectEular]] -- Problem 5 module Main (main) where main :: IO () main = print $ problem5 problem5 :: (Integral a) => a problem5 = foldl1 lcm [2..20]