m:-readln([N]),between(1,N,X),(between(1,N,Y),(X>1,X<N,Y>1,Y<N -> \+put(48);\+put(49));\+nl).