🚀 go-pugleaf

Try this



/case
{
%	(in case) ==
	/printnextproc 0 def
	/proc exch def
	/obj exch def
	{
		/proc load dup
		length 0 eq {pop exit} if
		dup 0 get 
		dup type /arraytype eq printnextproc 1 eq and {dup exec /printnextproc 2 def} if
		dup /Default eq printnextproc 0 eq and {/printnextproc 1 def} if
		/obj load eq {/printnextproc 1 def} if
		dup length 1 sub 1 exch getinterval
		/proc exch def
	} loop
} bind def


% EXAMPLE 1

0 1 20
{
	dup (     ) cvs print ( ) print
	{
		1 {(is 1) =}
		2 {(is 2) =}
		3 4 {(is 3,4) =}
		5 7 {(is 5,7) =}
		8 {(is 8) =}
		/Default {(other) =}
	} case

} for

% EXAMPLE 2
{A B C D E}
{
	dup (                         ) cvs print ( ) print
	{
			/B {(is B) =}
			/Default {(other) =}
	} case
} forall