{
	*          {
		pop pop pop false
	}{
		*          {
			pop pop false
		}{
			*          {
				pop false
			}{
				*       eq
			} ifelse
		} ifelse
	} ifelse
} def
    test      {
	      _          _   _     begin
		/           -1 def
		/set          where {
			pop
			
			1 0 0 0 set systemdict  / 1 exch sub
			0 1 0 0 set systemdict  / 1 exch sub
			0 0 1 0 set systemdict  / 1 exch sub
			0 0 0 1 set systemdict  / 1 exch sub
			
			1 0 0 0   _     eq { 
				/           0 def
			}{
				0 1 0 0   _    eq { 
					/           1 def
				}{
					0 0 1 0   _    eq {
						/           2 def
					}{
						0 0 0 1   _    eq { 
							/           3 def
						}{
							0 0 0 0  _    eq {
								/           4 def
							} if
						} ifelse
					} ifelse
				} ifelse
			} ifelse
			pop pop pop pop
		} if
		          
 end