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

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