let wczytaj =
        let co = [
            "weglowodany",
            "tluszcze",
            "woda",
            "cośtam"
        ]
        let liczby = co.map( (fun x ->
                let xc = System.Console.ReadLine()
                System.Double.TryParse(xc)
            )
        )
        let succ = List.filter (fun (s, _) -> not s) liczby