%externalroutinespec r
%routine x
  printsymbol('x')
%end
%externalroutine s
  printsymbol('s')
%end
%begin
  x
  r
%end