open System open System.Collections.Generic [] module Cin = let read f = stdin.ReadLine() |> f let reada f = stdin.ReadLine().Split() |> Array.map f let readChars() = read string |> Seq.toArray let readInts() = readChars() |> Array.map (fun x -> Convert.ToInt32(x.ToString())) [] module Cout = let writer = new IO.StreamWriter(new IO.BufferedStream(Console.OpenStandardOutput())) let print (s: string) = writer.Write s let println (s: string) = writer.WriteLine s let inline puts (s: ^a) = string s |> println // ----------------------------------------------------------------------------------------------------- //        /             ` 、       感謝するぜ  お前と出会えた //        /          ノノ  ヽ //       ,     ニニ彡'⌒    /`ヽ        これまでの  全てに //       '   ニミ ニニ彡      〈rう├--ミ //        { { ニミ } j j jノx'ィイく  }し{\   `丶、___/ニニニ //       j_ニニミV ハレノ x<⌒ヽ  V ヘ  \    \ニニニニニニニ //       {xミミー'ヾ(、ル( 厶tァァく⌒ヾ}  )ハ::::::.    \ニニニニニニ //      彡ィ'">tァ} \(`ニ彡 ノ` /ト=く   ::::::i     \ニニニニニニ //      (   V^`こ7  _, \``ヾヽ` ノ|`ヽ ヽ l:::::|       \ニニニニニ //          ∧  { '  ` ノ^ヽ    { ノ     !:::::|   ___ノ^ヽニニニニニニ //       /.::::\ゝヽ. _ノヽ``ヽ, -――- 、 /:::::/ /      ̄`ヽニニニニニ //      /.::::::::::::::::>'"ノルハヽ`/ -―- 、⌒V::::::/.// j___ノ、  ヽニニニニニ //   /ニニ、`ヽ`ヾヘ{ {、ムイ 、_(   >  \/ (__ ノニニニ     \ニニニニ //  ,仁ニニニ\ヽヽヽ ∨   /ニニ>彡>--')__ ノ    `ヽニ     \ニニニ二 //  ニニニニニニヽ   /     {ニニ> ´ `¨¨´         ニ}      \>''"´ //  ニニニニニニニニ/     ∨ /               }八 //  ニニニニニニニ./        }ニ{                ノニヽ     ノ //  ニニニニニニニ/       }ニハ               /⌒ヽヽヽ ___彡 //  ニニニニニニニ!        ノニニヽ、            /     ` ー=彡'ニニニニニ //  ニニニニニニニ}          ⌒`丶、     /⌒ヽ  ノ     ノ_____ //   / ̄ ̄ ̄`ヽ/ヽ、 _彡ヘ{ {        > 、 /     /  ̄ ̄ ̄ //      ) 、    /   ヾ、    ヽ ヽ      (    `{    / //  // ⌒ヽ  /    〃 トミ  ___ >--‐=、   ヽ _ノ //   {       /    //     /         \__ノ // ----------------------------------------------------------------------------------------------------- // ----------------------------------------------------------------------------------------------------- let s = read string let delimi = [| '+'; '*' |] let nums = s.Split(delimi) |> Seq.toArray |> Array.map (fun x -> Convert.ToInt64(x)) let ops = Queue() for c in s do if c = '+' || c = '*' then ops.Enqueue(c) let mutable ans = nums.[0] for i in 1 .. Array.length nums - 1 do let o = ops.Dequeue() if o = '+' then ans <- ans * nums.[i] else ans <- ans + nums.[i] puts ans // ----------------------------------------------------------------------------------------------------- writer.Dispose()