m:-between(0,14,N),sformat(S,'~~~dr
',16-N),\+format(S,16).