(setglobal Example0!
  (let
    (mm/81 =
       (function param/82
         (catch
           (let (switcher/85 =a (-2+ param/82))
             (if (isout 2 switcher/85) (exit 1)
               (switch* switcher/85
                case int 0: (observe 2)
                case int 1: (observe 3)
                case int 2: (observe 4))))
          with (1) (observe 5))))
    (makeblock 0 mm/81)))