main=readLn>>=print.(\x->f x ([1,1,1,1,1,1]++(take 99 (repeat 0))))
 where f x l |x<100  =0
             |x<105  =1
             |x==105 =head l
             |otherwise = f (x-1) ((maximum(drop 99 (take 105 l))):l)