main = getLine >>= map read . words <$> getLine >>= \as -> let l = foldl lcm (head as) (tail as) in foldl (\acc a -> acc + l `div` a ) 0 as `mod` 1000000007main = getLine >== map read . words <$> getLine >== \as -> let l = foldl lcm (head as) (tail as) in foldl (\acc a -> acc + l `div` a ) 0 as `mod` 1000000007
