%external %routine  Z (%string(255) s)
   print ch (27)
   print ch ('v')
%end

%end %of %file