RosettaCodeData/Task/Conditional-structures/Retro/conditional-structures-2.retro

:foo (n-)
  #1 [ ( if quote evaluates to true ) ] case
  #2 [ ( if quote evaluates to true ) ] case
  #3 [ ( if quote evaluates to true ) ] case
  drop ( default action ) ;