RosettaCodeData/Task/Flow-control-structures/Oz/flow-control-structures-2.oz

declare
  proc {Stupid X}
     choice
        X = 8
        {System.showInfo "choosing 8"}
     [] X = 9
        {System.showInfo "choosing 9"}
     [] X = 10
        {System.showInfo "choosing 10"}
     end

     2 * X = 18
  end
in
  {Show {SearchOne Stupid}}