let a = stdin.ReadLine().Split() |> Array.map int let mutable x = 0 let mutable y = 0 for i in 1 .. 10 do x <- x ^^^ i for i in a do y <- y ^^^ i x ^^^ y |> printfn "%d"