Integer >> fibBinet
    |phi rPhi|

    phi := Float phi.
    rPhi := 1 / phi.

    ^ (1 / 5 sqrt) * ((phi raisedTo:self) - (rPhi raisedTo:self))