(
  (2 <)
  (pred (1 0 (over + swap)) dip times pop)
  unless
) ^fib