let N     = stdin.ReadLine()
let arr   = N.ToCharArray() |> Array.map (fun c -> (int c)-(int '0'))
let front = arr.[0..2] |> Array.fold (fun acc x -> acc + x.ToString()) "" |> int
let other = (arr |> Array.length) - 3

let f,n = let t = front.ToString("E1").Split('+') 
          in t.[0].Replace("E","*10^"),t.[1] |> int

f + (n+other).ToString()
|> printfn "%s"