#! /usr/local/bin/clisp -C

(defun fib (i)
  (if (<= i 1) 1
      (+ (fib (1- i)) (fib (- i 2)))))

(let ((i (read)) (f (read)))
  (dotimes (j i) (fib f)))