// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.
open System


let rec srgeom iloczyn ilosc suma =
    let w  = Convert.ToDouble(Console.ReadLine())
    if w <> 0.0 then srgeom (iloczyn * w) (ilosc + 1) (suma + w )
    else
    if ilosc =0 then (Double.NaN, suma)
    else (Math.Pow(iloczyn, 1.0/(float ilosc)),suma)

let rec rysuj i =
    printf "*"
    if i > 0 then rysuj (i-1)
    else printfn ""

let rec choinka wiersze r =
    if r < wiersze then choinka wiersze (r-1)
    rysuj(r)

[<EntryPoint>]
let main argv =
    printfn "%A" argv
    // printfn "%A" (srgeom 0.0 0 0.0)
    printf "Podaj liczbe wierszy: "
    let wiersze = Convert.ToInt32(Console.ReadLine())
    choinka wiersze 0
    0 // return an integer exit code