# right_justify.t: right justify within a given width
> m;
i = m - 1;
> n;
{ m ? < m; m = m - 1; }

< N;
x = 2*5;
a = x;
{ i ?
   [ n@a ? d = d; : < B; ]
   a = a*x;
   i = i - 1;
}
< n; < N; $