$DEFINE arrget(*)
	$IF ($(1)==1)
		$(2)
	$ELSE
		$IF ($$>$(1)) $CALL(arrget, $EVAL($(1)-1), $(3,$$)) $ENDIF
	$ENDIF
$END

$DEFINE arrset(*)
	$IF ($(1)==1)
		$(2),$(4,$$)
	$ELSE
		$IF ($$>$(1)) $(3),$TRIM($CALL(arrset, $EVAL($(1)-1), $(2), $(4,$$))) $ENDIF
	$ENDIF
$END

$TRIM(arrget(2, a, b, c, d, e ))
$TRIM(arrget(5, a, b, c, d, e ))

$TRIM($CALL(arrset,4,x,a,b,c,d,e,f))

