r2tolists

From a list of level 2 (r2), create two lists of level 1 (r1).

Prototype :

fun [[u0 [u1 r2]]] [[u0 r1] [u1 r1]]

[[u0 [u1 r2]]] : a list of level 2.

Return : [[u0 r1] [u1 r1]] a new tuple of two list of level 1 or nil if error

See also :

Example :

fun main ()=
	_showconsole;
	let 2::"a"::5::"z"::6::"e"::7::"r"::nil::"t"::nil::"y"::nil -> lr2 in	// list of level 2 : [I [S r2]]
	let r2tolists lr2 -> [lr1_1 lr1_2] in
	(
	_fooIdList lr1_1;	// 2:5:6:7:nil:nil:nil	// list of level 1 : [I r1]
	_fooSList lr1_2;	// a:z:e:r:t:y:nil	// list of level 1 : [S r1]
	);
	0;;

Note