let writearray name a =
    let file = File.CreateText(name)
    for s in a do
        file.WriteLine(s)
    file.Close