#Homework 22 by Ben Miles for Experimental math OK to post
SplitUp:=proc(L) local a,L1,L2,i:

a:=nops(L):
for i from 1 to a-1 do:
 L1:=L[1..i]:
 L2:=L[i+1..a]:
 if split(L1,L2) then
  RETURN([op(SplitUp(L1)),op(SplitUp(L2))]):
 fi:
od:
[L]:
end: