-module(p).
-export([m/0]).
m()->[io:format("~4.8.0b is ~s
",[X,f(X,0)])||X<-lists:seq(0,511)].
f(_,10)->"";f(X,N)->f(X div 2,N+1)++[lists:nth(X rem 2*(N rem 3+1)+1,"-xwr")].
Note that non-ascii characters in the above source code will be escaped (such as \x9f).