: fast-fib ( x -- y ) { { 0 1 } { 1 1 } } swap m^n second first ;