%begin
%on 0 %start
  printstring("Oops"); newline
  %stop
%finish
%routine lex action
%end
%routine do(%integer n)
%switch s(1:8)
  -> s(n)
s(1):lex action
s(*):
done:
%end
  do(3)
%end