jugi

let enqueue((p,e),s) =
            if (snd s.l>0 && p<(fst (List.hd (fst s.l))))  s.l <- (((p,e) :: fst s.l),(snd s.1)-1)
            else if(snd s.l>0) List.hd (fst s.l))::(enqueue ((p,e),(List.tl (fst s.l))))
            else raise (Empty "nie ma miejsca w liscie")