fib

#lang racket

(require racket/place)

(define (fib n)
  1)

(define (start-fib n)
  (define p
    (place ch
           (define n (place-channel-get ch))
           (place-channel-put ch (fib n))))
  (place-channel-put p n)
  p)

(printf (format "~a\n" (place-channel-get (start-fib 10))))