Extract_from_head

function h_extract(l)
{
    var tmp;
    if(l.testa==null)
        {
            return undefined;
        }
            else
            {
                tmp=l.testa;
                l.testa=l.testa.next;
                return tmp;
            }
}