Compute phi in base x

Hi from /sci/...  There was just a short thread about the digits of pi.  I personally think that phi (golden ratio) is far more interesting and was hoping one of you gentlemen might have some code to compute arbitrary digits of phi in any base chosen by the user.  Hopefully it isn't offensive to ask that it be in C.

Since it's purely random, there's going to be some sort of image in there, eventually.  Just curious to see what the first "significant" finding is.

You will have to modify it yourself for it to work in positive integer bases greater than 10, but as long as you're willing to write the lookup, it's no problem.

#lang racket
(define stream-car car)
(define (stream-cdr str) (force (cdr str)))
(define-syntax stream-cons
  (syntax-rules ()
    ((_ a b) (cons a (delay b)))))

(define (make-consumer-emitter-base base a b c d cf)
  (define (consume)
    (let ((t (stream-car cf)))
      (let ((a (+ b (* a t)))
            (b a)
            (c (+ d (* c t)))
            (d c))
        (make-consumer-emitter-base base a b c d (stream-cdr cf)))))
  (define (emit?)
    (cond ((or (zero? c) (zero? d)) #f)
          ((= (quotient a c) (quotient b d)) #t)
          (else #f)))
  (define (emit-base)
    (if (not (emit?))
        (consume)
        (let ((t (quotient a c)))
          (let ((a (* base (- a (* t c))))
                (b (* base (- b (* t d)))))
            (stream-cons t (make-consumer-emitter-base base a b c d cf))))))
  (emit-base))

(define (endless n) (stream-cons n (endless n)))

(define (print-phi base terms)
  (let ((phi (make-consumer-emitter-base base 1 0 0 1 (endless 1))))
    (display (stream-car phi))
    (display ".")
    (let loop ((terms (- terms 1))
               (phi (stream-cdr phi)))
      (if (zero? terms)
          (newline)
          (begin
            (display (stream-car phi))
            (loop (- terms 1) (stream-cdr phi)))))))
Then we have
(print-phi 10 200)
1.6180339887498948482045868343656381177203091798057628621354486227052604628189024497072072041893911374847540880753868917521266338622235369317931800607667263544333890865959395829056383226613199282902678
 (print-phi 2 200)
1.1001111000110111011110011011100101111111010010100111110000010101111100111001110011000000011000000101110011101101110010000011010000010000100000100010011101101011111100111010001001110010010100011111100
 (print-phi 7 200)
1.4216620364601603551416420422051024134413051314542065442606120223611643055123125052056034432031040006345162232600450412156045033022614052460642253200441343114512413224021032644530234441552062542113430

Enjoy.