open System let ri () = stdin.ReadLine() |> int let ria () = stdin.ReadLine().Split() |> Array.map int type Sol() = member this.Solve() = let x = ri () let rec nCr n r :int64= match (n,r) with | (_,0) -> 1L | (n,r) when r > n -> 0L | (_,_) ->( nCr (n-1) (r-1) ) + ( nCr (n-1) r) let nc =(if x > 31 then 0L else nCr 31 x ) let nn =(if x > 31 then 0L else nCr 30 (x-1) ) printfn "%d %d" nc (2147483647L * nn) let mySol = new Sol() mySol.Solve()