$k=<>*2;map{$'*~-$'<<$_^$k||print$_+$'," 0"x$_," 1 "x$'}!//..30for 1..30