//Zadanie 1

//open System

//[<EntryPoint>]
//let main argv =
//    printfn "Podaj A"
//    let a = System.Console.ReadLine()|>int;
//    printfn "Podaj B"
//    let b = System.Console.ReadLine()|>int;
//    let rec pot m n =
//     match n with
//      |0 -> 1
//      |_ -> m * (pot m (n-1));


//    printfn "%d^%d=%d" a b (pot a b);
//    let x = System.Console.ReadLine();
//    0 // return an integer exit code



//Zadanie    2

//open System

//[<EntryPoint>]
//let main argv =
//    printfn "Podaj A"
//    let a = System.Console.ReadLine()|>int;
//    printfn "Podaj B"
//    let b = System.Console.ReadLine()|>int;
//    let rec sum m n =
//     match n with
//      |1 -> m
//      |_ -> (sum (m+1) (n-1)) + m;






//    printfn "%d %d %d" a b (sum a b);
//    let x = System.Console.ReadLine();
//    0 // return an integer exit code
//Zadanie 3

//open System

//[<EntryPoint>]
//let main argv =
//    printfn "Podaj A"
//    let a = System.Console.ReadLine();
//    let rec tylkoMaleLitery (s:string)  =
//     if s.Length = 0 then true
//     else System.Char.IsLower(s.[0])&&tylkoMaleLitery(s.Substring(1));





//    printfn "%b" (tylkoMaleLitery a);
//    let x = System.Console.ReadLine();
//    0 // return an integer exit code


////Zadanie 4
//open System

//[<EntryPoint>]
//let main argv =
//    printfn "Podaj A"
//    let a = System.Console.ReadLine()|>int;
//    printfn "Podaj B"
//    let b = System.Console.ReadLine()|>int;

//    let rec mRn m n  =
//     match n with
//      |0 -> mRn m 0
//      |1 -> mRn m 1
//      |_ -> m + m * (n-1);





//    printfn "%d*%d=%d" a b (mRn a b);
//    let x = System.Console.ReadLine();
//    0 // return an integer exit code

////Zadanie 5
open System

[<EntryPoint>]
let main argv =
    printfn "Podaj tekst"
    let tekst = System.Console.ReadLine();
    printfn "Podaj znak"
    let tekst = System.Console.ReadLine()|>char;
    let wyst = 0;
    let wystOdItego tekst wyst znak  =
     for i in 0 .. String.length tekst do
      if tekst.[i] = znak then wyst = wyst + 1 else wyst = wyst;





    printfn "%d*%d=%d" a b (mRn a b);
    let x = System.Console.ReadLine();
    0 // return an integer exit code