let rec mian9 (dlug:int) =
    match dlug with
    | 0 -> ""
    | _ -> "9" + (mian9(dlug-1))
let rec mian0 (dlug:int) =
    match dlug with
    | 0 -> ""
    | _ -> "0" + (mian0(dlug-1))

let ulamekDzies(ulamek:string)=
    let ul = ulamek.Split('.')
    let przedkr = ul.[0]
    let pokr = ul.[1]
    let b = pokr.Split('(')
    let nieokresowe = b.[0]
    let okresowe = b.[1].TrimEnd(')')
    let wynik = przedkr+" "+pokr+" "+nieokresowe+" "+okresowe+"/"
    let licznik = System.Convert.ToString(System.Convert.ToInt32(nieokresowe+okresowe)-System.Convert.ToInt32(nieokresowe))
    printfn "%A" licznik
    printfn "%A" (mian9 okresowe.Length + mian0 nieokresowe.Length)