Write, test, and debug a complete RPAL program that defines and uses a function split which takes a single argument (a tuple T) and splits it into two or three tuples, depending on whether Order T is even or odd.

Examples:

split(1,2,3,4,5) = ((1,2),(3),(4,5)).

split(1,2,3,4) = ((1,2),(3,4)).

HINT: Consider an auxiliary function extract(T,i,j):

extract((6,5,4,3,2,1),2,4) = (5,4,3)

Make sure you check for errors.