let lg x = (log x) /. (log 2.0)