let pow x n = let rec doit x n acc = if n = 0 then acc else doit (x * x) (n / 2) (if n mod 2 = 0 then acc else acc * x) in doit x n 1 let () = let l, n = Scanf.scanf "%d %d " (fun l n -> l, n) in Printf.printf "%d\n" (n * pow 2 (l - 3))