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