_Fold[list,index,current,worker:out]
{
	Print["_Fold"]
	{ Print[index]
	{
	newval <- [worker]Call[current, [list]Index[index], index]
	
	[list]Next[index]
	{
		out <- _Fold[list, ~, newval, worker]
	}{
		out <- Val[newval]
	}
	}}
}

Fold[worker,start,list:out]
{
	Print["Fold"]
	[list]First
	{
		Print["Got first"]
		out <- _Fold[list, ~, start, worker]
	}{
		Print["no first"]
		out <- start
	}
}