fibnum

main = do
 words2 <- readInts
 let fiblist = take 100 (fibo 0 1)
 print $ fibcheck words2 fiblist

readInts :: IO [Integer]
readInts = fmap (map read.words) getLine

fibo a b = a:fibo b (a+b)

fibcheck :: [Integer] -> [Integer] -> Bool
fibcheck [] _ = True
fibcheck (x:xs) ys = elem x ys && fibcheck xs ys