F# AI to beat 2048