let rec (^^) m n =
        if n = 0 then 1
        else m * (m^^(n - 1))
    let a = 2
    let b = 3
    let pot = a^^b
    printf "%d do potęgi %d to %d" a b pot
    0