minor change should result in decent speed up

max is also a function in F#