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