open Scanf
open Printf

let power a n =
 let rec loop a ans = function
  0 -> ans
 |n' -> loop a (ans * a) (n'-1)
 in loop a 1 n

let () =
 let n, m = scanf "%d %d\n" (fun x y -> (x, y)) in
 let x = 1900 * m + 100 * (n - m) in
 x * power 2 m |> printf "%d\n" 
