/**
 * Returns the top(last) element from the list and removes it from the list (typical stack function)
 */
/proc/pop(list/L)
	if(L.len)
		. = L[L.len]
		L.len--

/proc/popleft(list/L)
	if(L.len)
		. = L[1]
		L.Cut(1,2)