main=putStr$mapM(\i->[0,1])[1..8]>>=show.sum