input paramsa;
smudge:=0;
input gobas;
font_identifier:="gobl"; font_size 10pt#;
if unknown cmbase: input cmbase fi

input paramsc;

def paste(expr code,first,correction)=
beginchar(code,gow#,goh#,0); "One labelled black stone";
  italcorr 0;
  adjust_fit(0,0);
  currentpicture:=blackstone -
   (first shifted (oneleft,oneheight) shifted (correction*gow,.02goh));
 endchar;
enddef;

input goxl;
end;