open System

let (|FizzBuzz|Fizz|Buzz|Num|) n =
  match n%3,n%5 with
  | 0,0 -> FizzBuzz
  | 0,_ -> Fizz
  | _,0 -> Buzz
  | _   -> Num n
  
let strLen x =
  match x with
  | FizzBuzz    -> 8
  | Fizz | Buzz -> 4
  | Num n       -> n.ToString().Length
  
Console.ReadLine().Split() 
|> Array.map (int)  
|> Array.fold (fun acc x -> acc + strLen(x)) 0
|> printfn "%i"