-module(b).
-export([m/0]).
m()->p(2).
p(37)->0;p(N)->io:format(string:join(["~.","B
"],integer_to_list(N)),[257]),p(N+1).