Problem 1 in F#