p5' :: Integer
p5' = foldl lcm 1 [1..20]

p5 :: Integer
p5 = head $ filter cond [1..]
	where cond n = null [x | x <- [2..20], mod n x /= 0]

main = putStrLn $ "Solution: " ++ show p5