@ -9,4 +9,4 @@ main = do
putStrLn "test"
let n = 1000
let a = [0..n-1]
print $ foldl (+) 0 (map (\i -> foldl (+) 0 (map (`gcd` i) a)) a)
print $ sum (map (\i -> sum (map (`gcd` i) a)) a)