let task3 (path:string) =
    let lines = File.ReadAllLines(path)
    lines
    |> Array.map (fun x -> x.Split([|' '; '.'; ','; ';'|]))
    |> Array.filter (fun x -> x.Length > 0)
    |> Array.concat