let rec wstaw(lista, element, pozycja)=
   match lista with
   | el::lista -> if pozycja = 0 then element::el::wstaw(lista, element, pozycja-1) else el::wstaw(lista, element, pozycja-1)
   | lista -> []