-module(p). -export([m/0]). m()->f(0,841,1189). f(11,_,_)->0;f(N,X,Y)->io:format("A~-2w~5wmm x~5wmm\n",[N,X,Y]),f(N+1,Y div 2,X).