let f = int >> fun i -> i - 3 let count = match (stdin.ReadLine () |> f, stdin.ReadLine () |> int) with | (0, n) -> n | (l, n) -> (2 <<< (l-1)) * n count |> printfn "%d"