open System let ri () = stdin.ReadLine() |> int let ria () = stdin.ReadLine().Split() |> Array.map int type Sol() = member this.Solve() = let rec gcd a b = if a = 0 then b else gcd (b%a) a let x = 1234 let y = 4567 let z = gcd x y printfn "0" let mySol = new Sol() mySol.Solve()