m:-between(0,14,N),A is 16-N,\+format('~*r
',[A,16]).