main=putStr$mapM(:[1])[0,2..14]>>=show.(`mod`2).sum