aggiungere_in_testa({[ [l1,...,ln ]]},x)={[ [x,l1,...,ln ]]}aggiungere_in_testa([ [l1,...,ln ]],x)=[ [x,l1,...,ln ]]dove 1<=i<=lunghezza(l)+1