main=mapM print$iterate([id,(1-)]<*>)[0]!!10