main = readLn >>= print . (aku !!) 

aku = reverse (apply 100 (\as@(a1:a2:_) -> (19*a1-12*a2)/4 : as) [3,4])
 where apply n f x = foldr ($) x (replicate n f)