-module(s).
-export([m/0]).
m()->{_,[N]}=io:fread('',"~d"),L=N-1,[io:format("~*.*c
",[N+L-abs(M),N+L-abs(M)*2,$*])||M<-lists:seq(-L,L)].