let f c = int(c)%81%76
let f2 a b = a*2+b
stdin.ReadLine()
|> Seq.map f
|> Seq.fold f2 1
|> printfn "%d"