let n = stdin.ReadLine () |> int

let rec calc count x =
    if count = 0 then
        x
    else
        x |> string |> Seq.map (string >> int) |> Seq.sum |> calc (count-1)
        
        
calc 100 n |> printfn "%d"