initial solution for problem #2 in F#