// Modules
open System

// Recursive definition
let rec mc91 n =
    if n > 100 then
        n - 10
    else
        mc91 (mc91 (n + 11))

// Ask for input
printfn "Inserisci l'intero in cui calcolare la funzione 91 di McCarthey:\n"
let i = Console.ReadLine() |> int

// Print result
printfn "%d" (mc91 (i))