module Main where

import Data.List.Split
import Debug.Trace

algorithm :: Int -> Int ->  Int
algorithm n m = case m of
  0 -> n*100
  _ -> 2^m*((n-m)*100 + m*1900)

process :: [String] -> String
process ls = case splitOn " " (head ls) of
  [x, y] -> show $ algorithm (read x) (read y)
  _ -> "Wrong input"

main :: IO ()
main = do
  input <- getContents
  putStrLn $ process (lines input)