using runST for Fibonacci issues

Question

I have defined the following

import Data.STRef

fib\' :: Int -> Integer
fib\' n = runST $ do
                 rx <- newSTRef 0
                 ry <-