%begin
  %routine x (%integer a)
    %routine y (%integer %name %array (1) %name b)
    %end
  %end
%end