let id x = x
let (n,m) = Scanf.scanf "%d %d\n" (fun x y -> (x,y))

let rec pow2 n =
  if n = 0 then 1 else 2 * pow2 (n-1)
  
let ans = (1900 * m + 100 * (n-m)) * (pow2 m)

let () =
  Printf.printf "%d\n" ans