let rec listaZCharem (ch:char, n:int, lista:char list)  =
    match n with
    | n when n < 0 -> lista
    | 0 -> lista
    | 1 -> ch::lista
    | _ -> listaZCharem(ch, n-1, ch::lista)


let wynik = listaZCharem('s', 2, [])