let czyWszystkieNieujemne lista =
   let rec zliczUjemne = function
          | h :: t -> if h < 0 then 1 + (zliczUjemne t) else (zliczUjemne t)
          | [] -> 0
   if (zliczUjemne lista) > 0 then false else true