begin
  routine top
    routine nested
      switch left,middle,right(1:3)

      ->middle(3)
  
      left(1):
      middle(1):
      middle(2):
      right(1):
      right(2):
      right(3):
      left(*):

    end
  end
  
endofprogram