AtCoder Beginner Contest 070: C - Multiple Clocks
LCMするだけなのでawkあたりで書きたかったが、$10^{18}$が溢れるのでだめだった。
implementation
#!/usr/bin/env runhaskell
import Control.Monad
main :: IO ()
main = do
n <- readLn
t <- replicateM n readLn
let result = foldr1 lcm t :: Int
print result