let n = stdin.ReadLine() let mutable a = stdin.ReadLine().Split() |> Array.map int let factorize n = let rec go x i = if i * i > x then [x] elif x % i = 0 then i :: go (x / i) i else i + 1 |> go x go n 2 let ps = a.[0] |> factorize for p in ps do if Array.forall (fun v -> (v % p) = 0) a then a <- Array.map (fun v -> v / p) a a |> Array.map string |> String.concat ":" |> printfn "%s"