ans x =
  let a1 = if x `mod` 10 >= 5
           then 1
           else 0
      a2 = (x `div` 10) * 2
      a3 = (x `div` 100) * 4
      a4 = (x `div` 1000) * 8
      a5 = (x `div` 10000) * 19
  in
    a1 + a2 + a3 + a4 + a5

main = do
  c <- getContents
  let i = takeWhile (/= 0) $ map read $ lines c :: [Int]
      o = map ans i
  mapM_ print o