%externalroutinespec s
%routinespec y
%externalroutine r
  printsymbol('R')
  y
%end
%routine y
  s
%end